J* 1 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina . Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 



void TableWrite (unsigned char *dest, unsigned char *source, unsigned short Count); 
void TableRead (unsigned char *dest # unsigned char *source, unsigned short Count); 



* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

# include "support.h" 



#ifdef IR RULES 



#ifdef PIC 
#include "delay. h" 
#include "i2c_ccs.h" 
#include "tablereadwrite . h" 
#else 

#include <io.h> 
#include <fcntl.h> 
#endif 



#include 11 sendircommon . h" 
#include "sendirrules .h" 
# include "beep.h" 
#ifdef DEBUG 
#include <stdio.h> 
#endif 

#include <string.h> 
#include "f sdtablelarge . h n 
#include <ctype.h> 



short devTicks; 
extern short irScriptBuf fer ; 



void ir_initDevice (void) 

{ 

Nodeld nodeDevice; 
char buffer [4] ; 



f sd_switchRomBuf f er (irScriptBuf fer) ; 
nodeDevice = f sd_get Root Node ( ) ; 
if (nodeDevice != NODE_ERROR) { 

fsd_getAt tribute (nodeDevice, "ticks", buffer, 4) ; 
devTicks = (short ) atoi (buff er) ; 

} 

else { 

devTicks = -1; 

} 

debugHi (( "devTicks %d node %d" , devTicks, nodeDevice)); 
ir_ruleslnit ( ) ; 



f sd_unswitchRomBuf fer () ; 
return; 

} 



void ir_LedOn (const unsigned short T) 

{ 
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#ifdef PIC 

IR_LED__ON; 

DelayBigUs (T) ; 
#ifndef IR_RULES 

IR_LED_OFF; 

#endif 
#endif 
} 



void ir_LedOff (const unsigned short T) 
{ 

#ifdef PIC 
#ifdef IR_RULES 

IR_LED_OFF; 

#endif 

DelayBigUs (T) ; 

#endif 
} 



void ir_Initialize (void) 

{ 

struct eprom_script_def script; 
short scriptType, scriptld; 

devTicks = -1; 
scriptType = IRSCRIPT; 
if (epromValidO ) { 

scriptld = epromReadWord(EPROM_IR_SCRIPTID) ; 

} 

else { 

scriptld = -1; 

} 

if (scriptld != -1) { 

if (epromGetScript (scriptType, scriptld, &script) == -1) { 
f sd_setScriptBuf f er (scriptType, scriptld) ; 

} else { 

f sd_setScriptBuf f erNoLoad (&script) ; 

} 



ir_initDevice () ; 

if (devTicks == 0) devTicks = -1; 

#ifdef IR_RULES 

if (devTicks != -1) { 

f sd_switchRomBuf f er (irScriptBuf f er) ; 

if (epromGetScript (IRDATA, -1, &script) == -1) { 
ir_conf iglrCodes ( ) ; 

> 

else { 

ir_conf iglrCodesRom ( ) ; 

} 

f sd_setMainScriptBuf f er ( ) ; 

} 

#endif 

} 
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if (devTicks == -1) { 
errorBeepO / 

debugPutstrHi ("No ir device"); 

} 



long ir_CalcFrequency (const short N) 

{ 

long ret; 

ret = (long) ( PRONTO FREQUENCY/ (103 * (float) . 241246) ) ; 
return ret; 



short ir_CalcOneCycle (const long frequency) 

{ 

float x; 
short ret; 

x = ( (float) 1 / frequency); 
x += (float) .0000005; 
ret = (short) (x * 1000000L) ; 
return ret; 

} 

#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#include <picl8.h> 
#include "delay. h" 
#ifdef DEBUG 
#include " serial. h" 
#include <stdio.h> 
#endif 

#include <string.h> 
#include "i2c ccs.h" 



short ROM_ReadWord ( int address) 

{ 

short ret; 

random_readM(0x00, address, (char *)&ret, 2) ; 
return ret; 

} 



void ROM_Send ( int Address, char *Data, char Num) 
{ 

while (Num--) 

{ 

random_write (0x00, Address, *Data) ; 

Data++ ; 

Address++; 

} 

} 



void ROM_Read(int Address, void *Data, char Num) 

{ 

random_readM(0x00, Address, Data, Num); 

} 
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void random_write(char dev adr, int mem_adr, char dat) 
{ 

i2c_start () ; 

i2c__out_byte (OxaO | (dev_adr << 1) ) ; 
i2c_nack ( ) ; 

i2c_out_byte( (mem_adr >> 8) & Oxf f ) ; 
i2c_nack() ; 

i2c_out_byte (mem_adr & Oxff); 
i2c_nack() ; 
i2c_out_byte (dat) ; 
i2c_nack( ) ; 
i2c_stop ( ) ; 
DelayMs(25) ; 

} 

void random_readM(char dev_adr, int mem_adr, void *Data, char Num) 

{ 

char i; 

char *p=Data; 



i2c_start ( ) ; 

i2c_out_byte (OxaO | (dev_adr << 1) ) ; 
i2c_nack ( ) ; 

i2c_out_byte ( (mem_adr >> 8) & Oxff ) ; 
i2c_nack ( ) ; 

i2c_out_byte (mem_adr & Oxf f ) ; 
i2c_nack ( ) ; 
i2c__start ( ) ; 

i2c_out_byte (Oxal | (dev_adr << 1) ) ; 
i2c_nack() ; 

for (i=0; i < Num; i++) { 

*p++=i2c_in_byte ( ) ; 
if (i != Num - 1) { 
i2c_ack() ; 

} 

} 

i2c_stop() ; 



char random_read(char dev_adr, int mem_adr) 

{ 

char y; 
i2c_start ( ) ; 

i2c_out_byte (OxaO | (dev_adr << 1) ) ; 
i2c_nack() ; 

i2c_out_byte ( (mem_adr >> 8) & Oxff ) ; 
i2c_nack( ) ; 

i2c__out_byte (mem_adr & Oxff ) ; 
i2c_nack ( ) ; 
i2c_start ( ) ; 

i2c_out_byte (Oxal | (dev_adr << 1)); 
i2c_nack( ) ; 
y=i2c_in_byte ( ) ; 
i2c_stop ( ) ; 
return (y) ; 



char i2c__in_byte (void) 

{ 

char ijbyte, n; 
i2c__high_sda ( ) ; 
for (n=0; n<8; n++) 

{ 

i2c_high_scl () ; 
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if (SDA_PIN) 
{ 

i_byte = (i_byte << 1) | 0x01; 
else 

{ 

i_byte = i_byte << 1; 

} 

i2c_low__scl ( ) ; 

} 

return (i_byte) ; 

} 

void i2c_out_byte (char o_byte) 

{ 

char n; 

for(n=0; n<8; n++) 

{ 

if (o_byte&0x80) 
{ 

i2c_high_sda () ; 

} 

else 

{ 

i2c_low_sda ( ) ; 

} 

i2c__high_scl ( ) ; 
i2c_low_scl ( ) ; 
o_byte = o_byte << 1; 

} 

i2c_high_sda ( ) ; 

} 

void i2c_nack (void) 

{ 

i2c_high_sda ( ) ; 
i2c_high_scl ( ) ; 
i2c_low_scl ( ) ; 

} 

void i2c_ack (void) 

{ 

i2c_low_sda ( ) ; 
i2c_high_scl ( ) ; 
i2c_low_scl { ) ; 
i2c_high_sda ( ) ; 

} 



void i2c_start (void) 

{ 

i2c_low_scl ( ) ; 
i2c_high_sda ( ) ; 
i2c_high_scl ( ) ; 
i2c_low_sda ( ) ; 
i2c_low_scl ( ) ; 

} 

void i2c_stop (void) 

{ 

i2c_low_scl ( ) ; 
i2c_low_sda ( ) ; 
i2c_high_scl () ; 
i2c_high_sda ( ) ; 



} 



void i2c_high_sda (void) 
SDA_DIR = 1; 



void i2c_low_sda (void) 

SDA_PIN = 0; 
SDAJDIR = 0; 



void i2c_high_scl (void) 
SCL_DIR = 1; 



void i2c_low_scl (void) 

SCL_PIN = 0; 
SCL_DIR = 0; 
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PushPlay --An Xml Document emulator\interpreter for microprocessors 
Copyright (C) 2002, Arthur Gravina. Confidential. 
Arthur Gravina <art@agravina . com> 



VERSION 5.00 

Begin VB.Form Forml 

Caption 

ClientHeight 

ClientLeft 

ClientTop = 

ClientWidth 

LinkTopic = 

ScaleHeight = 

ScaleWidth 

StartUpPosition = 



"Compile Ir Codes" 

7095 

60 

450 

10185 

"Forml " 

7095 

10185 

3 



Begin VB . CommandButton cmdCompile 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



" Compile" 

495 

7920 

4 

720 
2055 



End 

Begin VB .DriveListBox drvList 



Height 
Left 

Tablndex 

Top 

Width 



315 
120 
3 

360 
3495 



End 

Begin VB .DirListBox dirList 
Height = 2790 

Left = 120 

Tablndex = 2 

Top = 1080 

Width m 3495 

End 

Begin VB . FileListBox filList 

3405 
4080 
1 
1 

360 
3255 



Height 
Left 

MultiSelect 
Tablndex 
Top 
Width 
End 

Begin VB.ListBox Listl 

Height = 1815 

Left = ' 360 

Tablndex = 0 

Top = 4800 

Width = 7695 

End 

End 

Attribute VB_Name = "Forml" 
Attribute VB_Global Name Space = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 

Private WithEvents oCompiler As FSDCompileScript 
Attribute oCompiler . VB_VarHelpID = -1 



Private Sub cmdCompile_Click ( ) 



compileFiles 
End Sub 

Private Sub dirList_Change ( ) 

filList.Path = dirList .Path 
End Sub 

Private Sub Form_Load() 
Forml . Show 
filList. Pattern = "*.xml" 

End Sub 

Sub compileFiles ( ) 

Dim inFilename As String, mypath As String, outFilename As String 
Dim ret As Integer 
Dim errors As String 
Dim ind As Integer 

On Error GoTo errrtn 

Set oCompiler = New FSDCompileScript 



If filList .ListCount Then 

mypath = dirList. Path + "\" 

For ind = 0 To Forml ! filList . ListCount - 1 

inFilename = Forml ! filList . List ( ind) 

outFilename = Left ( inFilename, Len( inFilename) - 4) 

outFilename = outFilename & ".fsd" 

Listl .Addltem "compiling.. " & inFilename 

ret = oCompiler . f sd_loadScript (mypath & inFilename, errors) 
If ret = False Then 

MsgBox errors, vbCritical, "compileCodes WARNING!" 

GoTo errrtn 
End If 

oCompiler . fsd_Compile mypath & outFilename 
Next ind 
End If 

Exit Sub 
errrtn: 

MsgBox "compileFiles Error: " & Error 
End Sub 

Sub compilelrFiles ( ) 

Dim inFilename As String, mypath As String, outFilename As String 
Dim ret As Integer 
Dim errors As String 

On Error GoTo errrtn 

Set oCompiler = New FSDCompileScript 

mypath = "c:\smarttoy\compile ir codes\" 

inFilename = Dir (mypath & "*.xml") 

Do While inFilename <> 11,1 

Listl .Addltem "loadscript . . " & inFilename 
outFilename = Left ( inFilename, Len (inFilename) - 4) 
outFilename = outFilename & ".fsd" 

ret = oCompiler . fsd_loadScript (mypath & inFilename, errors) 
If ret = False Then 

MsgBox errors, vbCritical, "compile I rCodes WARNING!" 

GoTo errrtn 
End If 

oCompiler . fsd_Compile mypath & outFilename 
inFilename = Dir 



Loop 

Exit Sub 
errrtn: 

MsgBox "compilelrFiles Error: " & Error 
End Sub 

Sub compileIrFiles01d( ) 

Dim fileName As String, mypath As String 
Dim ret As Integer 
Dim errors As String 



On Error GoTo errrtn 

Set oCompiler = New FSDCompileScript 

mypath = M c : \smarttoy\compile ir codes\ M 

fileName = mypath & "irCodes.xml" 

Listl .Addltem "loadscript . . " & fileName 

ret = oCompiler . f sd_loadScript (fileName, errors) 

oCompiler . fsd_Compile mypath & " ir Codes . fsd" 

If ret = False Then 

MsgBox errors, vbCritical, "compile I rCodes WARNING 
GoTo errrtn 
End If 

errrtn: 

End Sub 

Private Sub oCompiler_inf o (sMsg As String) 
End Sub 

Private Sub info(msg As String) 
Dim obuf As String 

obuf = msg & " " & Now 
Listl .Addltem obuf 

Listl .Listlndex = Listl . ListCount - 1 



End Sub 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef istack_h_ 

#define istack_h_ 

#define MAXDIM 20 
#define ISTKERROR -3333 
typedef short ElementType; 



void IPush (const ElementType f ) ; 
ElementType IPop(void) ; 

ElementType IPeek(const ElementType Item); 

short I Count ( ) ; 

void EmptylStack(void) ; 

#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 



#ifndef f sdtablelarge__h_ 

#define f sdtablelarge_h_ 

#include "support. h" 
#include <stddef.h> 
# include "eprom.h" 

#define NUMSCRIPTS 3 
#define NUMDYNAMI CNODES 5 
#define NUMD YNAM I CATTR I BUTE S 10 
#define NUMDYNAMI CTEXT CHUNKS 20 

#define TEXT_CHUNK CHAR_BUFFERSIZE 

#define SIZETEXTBUFFER TEXT_CHUNK * NUMDYNAMI CTEXTCHUNKS 

#define N0DE_AVAI LABLE (WORD) 0 
#define NODE ALLOCATED (WORD) 0x7000 



#define NODE_RO0T -1 
#define NODE__ELEMENT 1 
#define NODE_ATTRI BUTE 2 
#define NODE_TEXT 3 
#define NODE_COMMENT 8 
#define NODE_EMPTY -1 
#define TEXTLOC_EMPTY -1 

#define CHAR_BUFFERSIZE 24 

typedef struct node_def Node; 

typedef struct attribute_def Attribute; 

typedef struct node_def *PtrNode; 

typedef struct attribute_def ' *PtrAttribute; 

typedef WORD Nodeld; 

typedef WORD TextLoc; 

typedef char *PtrTextLoc; 



struct control_def { 

WORD nextLocation; 
WORD numberScripts; 

}; 

#define NEXTLOCATION of fsetof (struct control_def, nextLocation) 

#define NUMBERSCRIPTS of fsetof ( struct control_def, numberScripts) 



struct script_def { 
WORD type; 
WORD id; 
WORD location; 



#define NOSCRIPT 0 
#define MAINSCRIPT 1 
#define IRSCRIPT 2 
#define IRDATA 3 

#define IRGETSCRI PTID 28001 



struct header_def { 

WORD nodeOffset; 
WORD numNodes; 
WORD attributeOf f set ; 
WORD numAt tributes; 
WORD textAreaOf f set ; 
WORD lenTextArea; 

WORD scriptType; 



of fsetof (struct node_def, parentnode) 
of fsetof (struct node_def, typenode) 
of fsetof (struct node_def, nextnode) 

of fsetof (struct node_def, firstchild) 
of fsetof (struct node_def, f irstattribute) 
of fsetof (struct node_def, locname) 

of fsetof (struct node_def, lenname) 



WORD scriptld; 

}; 

#define NODEPARENT 
#define TYPENODE 
# define NEXTNODE 
#define FIRSTCHILD 
#define FIRSTATTRIBUTE 
#define NODENAME 
#define NODENAMELEN 



struct node__def { 

WORD parentnode; 
WORD typenode; 
WORD nextnode; 
WORD firstchild; 
WORD f irstattribute; 
WORD locname; 

unsigned char lenname; 

unsigned char filler; 

}; 



#define ATTRIBUTE PARENT 
#define NEXTATTRI BUTE 
#define ATTRI BUTENAME 
#define ATTRI BUTEVALUE 
#define ATTRIBUTENAMELEN 
#define ATTRI BUTEVALUE LEN 



of fsetof (struct attribute_def , parentnode) 
of fsetof (struct attribute_def , nextattribute) 
of fsetof (struct attribute_def , locname) 
of fsetof (struct attribute_def , locvalue) 
of fsetof (struct attribute_def , lenname) 
of fsetof (struct attribute def, lenvalue) 



struct attribute^def { 
WORD parentnode; 
WORD nextattribute; 
WORD locname; 
WORD locvalue; 

unsigned char lenname; 

unsigned char lenvalue; 

}; 



void f sd_Initialize (void) ; 
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void *f sd_f etchTextLocPtr (const TextLoc locText); 

Nodeld fsd_fetchNode(PtrNode pNode, Nodeld node) ; 

Nodeld f sd_fetchNodeId (const Nodeld node, const short offset) ; 

TextLoc f sd_f etchNode TextLoc (const Nodeld node, const short offset); 

Nodeld fsd_fetchAttribute(PtrAttribute pAttribute, Nodeld attribute) ; 

Nodeld f sd_f etchAttributeld (const Nodeld attribute, const short offset) ; 

TextLoc f sd_f etchAttributeTextLoc (const Nodeld attribute, const short offset); 

void f sd_fetchText (TextLoc textLoc, short textLen, char *buffer, const short len); 

Nodeld f sd_slotNode (void) ; 

void f sd_scratchNode (const Nodeld nodeld); 

Nodeld f sd_slotAttribute (void) ; 

void f sd_scratchAttribute (const Nodeld nodeld); 

TextLoc f sd_slotTextBlock(void) ; 

void f sd_scratchTextBlock( const TextLoc loc) ; 

TextLoc fsd_addText (const char *sText) ; 

void fsd_getText (const TextLoc locText, char *buffer, const short len); 

void f sd_setNodeName (const Nodeld node, const Nodeld parent, const char *name) ,- 

Nodeld f sd_getRootNode(void).; 

short f sd_get Chi ldCount (const Nodeld parentNode); 

short f sd_getChildNodes (const Nodeld parentNode, Nodeld nodesFound [] , const short len) ; 

Nodeld f sd_getChildByPos (const Nodeld parentNode, const short pos) ; 

void f sd_getNodeName (const Nodeld nodeld, char *buffer, const short len) ; 

short f sd_getNodesByName (const Nodeld parentNode, const char *sName, Nodeld nodesFound [] , com 
short f sd_getAttributes (const Nodeld parentNode, Nodeld nodesFound [] , const short len) ; 
short f sd_getAttributeCount (const Nodeld parentNode); 

Nodeld f sd_ge t At tributeByName (const Nodeld parentNode, const char *sName) ; 

Nodeld f sd_getAttributeByPos (const Nodeld parentNode, const short pos) ; 

void f sd_getAttributeValue (const Nodeld attributeld, char *buffer, const short len) ; 

void f sd__getAttribute (const Nodeld parentNode, const char *attribName, char *buffer, const she 

BOOL fsd_hasAt tributes (const Nodeld nodeld); 

BOOL f sd__hasChildNodes (const Nodeld nodeld); 

Nodeld f sd_setAttribute (const Nodeld parentNode, const char *name, const char *value) ; 
short fsd_getlnteger (const char *value) ; 



void f sd_switchRomBuf f er { short newRomBuf f er) ; 

void f sd_unswitchRomBuf f er ( ) ; 

void f sd_setMainScriptBuf f er (void) ; 

void f sd_setScriptBuf f er (short scriptType, short scriptld); 
void f sd_setScriptBuf f erNoLoad( struct eprom_script_def *script) ; 
#ifndef PIC 

void f sd__readRom{ short offset, short numBytes) ; 
void f sd_wr it eRom( short offset, short numBytes) ; 

int fsd_readfile (short scriptType, short scriptld); 
#endif 

void f sd_LoadMainScript (void) ; 
void f sdint_GetIrScript (void) ; 
void fsdint_SetIrScript (short scriptld); 

void f sd_clearEpromScript (short scriptType, short scriptld); 
#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#include "support. h" 

#ifdef IR_RULES 

#include "f sdtablelarge .h" 

# include " sendir common .h" 

#include "sendirrules.h" 

#ifndef PIC 

#include "pcromchip.h" 

#endif 

static void def ineButton ( struct ir_remote* remote, struct ir_ncode *codes, const char *commandl 

extern short of f setFlashMemory; 

extern short numScriptBuf f ers ; 

extern unsigned short scriptBuf f er [] ; 

extern short of f setFlashMemory ; 

static struct ir remote remote; 



const struct flaglist all_flags[] 
[ "RC5 11 , 
[ "RC6 », 
[ " RCMM " , 
;"SHIFT_ENC" # 
["SPACE_ENC", 
[ "REVERSE" , 
[ " NO_HEAD_REP " 
'"NO FOOT REP" 



{ 



}; 



RC5_CODE} , 
RC6_CODE}, 
RCMM} , 
SHIFT_ENC}, 
SPACE_ENC}, 
REVERSE} , 
NO_HEAD_REP} , 
NO_FOOT_REP}, 
» CONS T_LENGTH " , CONST_LENGTH } , 
" RAW_CODES " , RAW_C0DES } , 
" REPEAT__HEADER " , RE PEAT_HE ADER } , 
"SPECIAL_TRANSMITTER" , SPECIAL_TRANSMITTER} , 
NULL,0}, 



const struct flaglist allCommands [] = { 



"TITLE " , 


TITLE} , 


"MENU", 


MENU} , 


"PLAY", 


PLAY} , 


"STOP", 


STOPDVD}, 


"PAUSE" , 


PAUSE}, 


"STEP", 


STEP} , 


"PREVCHAPTER" , 


PREVCHAPTER} , 


"NEXTCHAPTER" , 


NEXTCHAPTER} , 


"SEARCH", 


SEARCH}, 


"NAV_UP", 


NAVJJP} , 


"NAV_DOWN" , 


NAVJDOWN} , 


"NAV_LEFT", 


NAV_LEFT} , 


"NAV_RIGHT", 


NAV RIGHT}, 


"REWIND", 


REWIND} , 


"FORWARD" , 


FORWARD}, 


"NUM_1 ", 


NUM_l} , 


"NUM_2 " , 


. NUM_2 } , 


"NUM_3 " , 


NUM_3}, 


"NUM_4 " , 


NUM_4} , 


"NUM_5 ", 


NUM_5} , 


"NUM_6 


NUM_6} , 


"NUM_7", 


NUMJ7} , 


"NUM_8 ", 


NUM_8}, 



}; 



{"NUM_9" , NUM_9}, 
{"NUM_0", NUM_0}, 
{ »NUM_TEN_PLUS " , NUM_TEN__PLUS } , 



{ "POWER" , POWER}, 
{NULL, 0}, 



static int parseFlags (char *val) 

{ 

const struct flaglist *flaglptr; 
int flags=0; 
char *flag,*help; 



f lag=help=val ; 



while (f lag! =NULL) 
{ 

while (*help!=» | ■ ScSc *help!=0) help++; 

if (*help== f | 1 ) 

{ 

*help=0 ;help++ ; 

} 

else 

{ 

help=NULL; 

} 

f laglptr=all_f lags ; 

while (flaglptr->name!=NULL) { 

if (strcmp (f laglptr->name, f lag) ==0) { 

f lags=f lags | f laglptr->f lag; 

break ; 

} 

f laglptr++ ; 

} 

if (f laglptr->name==NULL) 

{ 

return (0) ; 

} 

f lag=help; 

} 

return (flags) ; 

} 



unsigned char ir_JLookupButton (const char *buttonName) 

{ 

const struct flaglist *flaglptr; 
unsigned char command; 

command = 255; 

f laglptr=allCommands ; 

while (f laglptr- >name ! =NULL) { 

if (strnocasecmp (f laglptr- >name, buttonName) ==0 

command= f laglptr- >f lag ; 

break ; 

} 

f laglptr++ ; 

} 

return command; 
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static void def ineButton (struct ir_remote*remote, struct ir_ncode *codes, const char *commandl 
{ 

char temp [24] ; 
unsigned char command; 

command = ir_lookupButton (commandName) ; 

if (command ==255) { 

debugHi (( "Bad Button: %s n , commandName) ) ; 
return; 

} 

ir_init Words (command) ; 

f sd_get At tribute (butt onNode, "value", temp, 24); 
ir_code_init ( &codes- >code) ; 

ir_strtocode (temp, 1, (char) remote- >bits, &codes->code) ; 
send(codes, remote, (unsigned short ) remote- >min_repeat) ; 
ir_endWords (command) ; 

} 

static void def ineRemote (char * key, Nodeld ruleNode, struct ir_remote *rem) 

{ 

char temp [24] ; 

if ( (strnocasecmp ( "bits" , key) ) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 
rem- >bits=atoi (temp) ; 

} 

else if (strnocasecmp ( "flags" , key) ==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24); 
rem- >f lags | =parseFlags (temp) ; 

} 



else if ( strnocasecmp ( "header", key) ==0) { 

fsd_getAt tribute (ruleNode, "pulse", temp, 24); 
rem- >phead=atoi (temp) ; 

fsd_get At tribute (ruleNode, "space", temp, 24); 
rem->shead=atoi (temp) ; 

} 

else if (strnocasecmp ( "one" , key) ==0) { 

fsd_get At tribute (ruleNode, "pulse", temp, 24); 
rem- >pone=atoi (temp) ; 

fsd_get At tribute (ruleNode, "space", temp, 24); 
rem- >sone=atoi (temp) ; 

} 

else if (strnocasecmp ( "zero" , key) ==0) { 

f sd_get At tribute (ruleNode, "pulse", temp, 24); 
rem- >pzero=atoi (temp) ; 

fsd_get At tribute (ruleNode, "space", temp, 24); 
rem->szero=atoi (temp) ; 



else if (strnocasecmp ( "plead" , key) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 



rem- >plead=atoi (temp) ; 

} 



else if (strnocasecmp("ptrail" / key)==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 
rem- >ptrail=atoi (temp) ; 

} 



else if (strnocasecmp ( "foot" , key) ==0) { 

fsd_get At tribute (ruleNode, "pulse", temp, 24); 
rem->pf oot=atoi (temp) ; 

f sd_get At tribute (ruleNode, "space", temp, 24); 
rem- >sfoot=atoi (temp) ; 



else if ( strnocasecmp ( "repeat" , key) ==0) { 

fsd_getAt tribute (ruleNode, "prepeat", temp, 24); 
rem- >prepeat=atoi (temp) ; 

fsd_get At tribute (ruleNode, "srepeat" , temp, 24); 
rem- >srepeat=atoi (temp) ; 



else if (strnocasecmp ( "pre_data_bits" , key) ==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24); 
rem- >pre_data_bits=atoi (temp) ; 

} 



else if (strnocasecmp ( "pre_data" , key) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 

ir_strtocode (temp, 1, (char) rem- >pre_data_bits, &rem->pre_data) ; 

} . ' . ~ ~ 



else if (strnocasecmp ( "post_data_bits" , key) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 
rem->post_data_bits=atoi (temp) ; 

} 



else if (strnocasecmp ( "post_data" , key) ==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24); 

ir_strtocode (temp, 1, (char) rem- >post_data_bits, &rem- >post_data) ; 

} 



else if (strnocasecmp ( "pre" , key) ==0) { 

fsd_get At tribute (ruleNode, "ppre", temp, 24); 
rem- >pre_p=atoi (temp) ; 

fsd_get At tribute (ruleNode, "spre", temp, 24); 
rem- >pre_s=atoi (temp) ; 



else if ( strnocasecmp ("post", key ) ==0 ) { 

f sd_getAttribute (ruleNode, "ppost", temp, 24); 
rem->post_p=atoi (temp) ; 

fsd__getAt tribute (ruleNode, "spost", temp, 24); 
rem->post_s=atoi (temp) ; 



else if (strnocasecmp("gap" / key)==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24) 
rem->gap=atol (temp) ; 



else if (strnocasecmp ( "repeat_gap" , key) ==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24) 
rem->repeat_gap=atol (temp) ; 



else if ( strnocasecmp ( "toggle_bit" , key) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 
rem- >toggle_bit=atoi (temp) ; 

> 



else if ( strnocasecmp ( "min_repeat" , key) ==0) { 

f sd_getAttribute (ruleNode, "value", temp, 24); 
rem- >min_repeat=atoi (temp) ; 

} 



else if (strnocasecmp ( "frequency" , key) ==0) { 

fsd_get At tribute (ruleNode, "value", temp, 24); 
rem->f req=atoi (temp) ; 

} 



else if (strnocasecmp ( "duty_cycle" , key) ==0) { 

fsd_getAt tribute (ruleNode, "value", temp, 24); 
rem- >duty_cycle=atoi ( temp) ; 

}else{ 

debug Put st rHi ( ( "Error conf ig : " ) ) ; 
debugPutstrHi ( (key) ) ; 

} 



void ir_conf iglrCodesRom (void) 

{ 

struct eprom_script_def script; 
short beginRombuf f er , numBytes; 

if (epromGetScript (IRDATA, -1, &script) != -1) { 
beginRombuf fer = script . location; 
numBytes = script. len; 

ir_ini t Point ersFromRom( beginRombuf fer, numBytes) ; 
debugHi ( { "irRom = %d %d", beginRombuf fer , numBytes)) 



} 



} 

else { 
} 



debugPutstrHi ( ("find IRDATA in eprom failed")); 



void ir_conf iglrCodes (void) 

{ 



struct ir_ncode codes; 



Nodeld parentNode; 
Node Id ruleNode; 

Nodeld buttonNode; 
char temp [24] ; 

struct eprom_script_def epromScript; 
short beginRomBuf f er, thisRomBuf fer ; 
short numBytes; 



memset ( (char *)&remote, 0, sizeof (remote) ) ; 
beginRomBuf fer = irdataOf f set ; 



parentNode = f sdint_f indButton (N0DE_R00T, "rules", NULL); 

debug Put st rHi ( ( "compile rules" ) ) ; 

ruleNode = f sd_f etchNodeld (parentNode, FIRSTCHILD) ; 
while (! (ruleNode == NODE_EMPTY || ruleNode == N0DE_ERROR) ) { 
f sd_getNodeName (ruleNode, temp, 24); 
def ineRemote (temp, ruleNode, fcremote) ; 
debugHi ( ( "node %s" , temp) ) ; 
ruleNode = fsd_f etchNodeld (ruleNode, NEXTNODE) ; 

} 



debugPutstrHi ( ("compile buttons") ) ; 

parentNode = f sdint_f indButton (N0DE_R00T, "buttons", NULL) ; 

buttonNode = fsd_f etchNodeld (parentNode, FIRSTCHILD) ; 

while (! (buttonNode == NODE_EMPTY || buttonNode == NODE_ERROR) ) { 

f sd__getNodeName (buttonNode, temp, 24); 

def ineButton (&remote, &codes, temp, buttonNode); 

debugHi ( ( "node %s" , temp) ) ; 
buttonNode = fsd_f etchNodeld (buttonNode, NEXTNODE); 

} 

numBytes = irdataOf f set - beginRomBuf fer - 1; 
thisRomBuf fer = numScriptBuf f ers ; 

debug ((" IRDATA Script %d %d" , beginRomBuf fer , numBytes )); 
scriptBuf fer [thisRomBuf fer] = beginRomBuf fer ; 
numScriptBuf fers++ ; 



epromScript .id = - 1 ; 

epromScript . location = beginRomBuf fer ; 
epromScript . type = IRDATA; 
epromScript . len = numBytes; 

epromWriteScriptNumber (thisRomBuf fer, &epromScript ) ; 
#ifndef PIC 

pc_writeFlash (beginRomBuf fer, numBytes) ; 

#endif 
} 



static void def ineRemoteTest (struct ir_remote *rem) 
{ 

char temp [32] ; 



rem->bits=16; 



rem- >f lags = SPACE_ENC | REVERSE ; 
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rem- >phead= 8800; 
rem- >shead=44 00 ; 

rem- >pone=550 ; 
rem->sone=1650 ; 

rem->pzero=550 ; 
rem- > s z ero= 550; 

rem->plead=0; 

rem- >ptrail=550 ; 

rem->pfoot=0; 
rem->sf oot=0 ; 

rem->prepeat=8800 ; 
rem- > srepeat = 2200; 

rem->pre_data_bits=16; 
strcpy(temp, "0xCD72") ; 

ir_strtocode (temp, 1, (char) rem- >pre_data_bits, &rem->pre_data) ; 

rem->post_data_bits=0 ; 
strcpy (temp, " " ) ; 

ir_strtocode (temp, 1, (char) rem- >post_data_bits , &rem- >post_data) ; 

rem- >pre_p=0 ; 
rem->pre_s=0 ; 

rem- >post_p=0; 
rem->post_s=0; 

rem- >gap-3 8500; 

rem->repeat_gap=OL; 
rem- >toggle_bit=0 ; 
rem->min__repeat=0; 
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rem->f req=0 ; 



rem->duty_cycle=0 ; 

} 

static void def ineButtonTest (struct ir_remote* remote, struct ir_ncode *codes, const char *comt 

{ 

char temp [24] ; 
unsigned char command; 

debug (( "TestButton: %s %s", commandName, value)); 
strcpy(temp, value) ; 

command = ir_lookupButton (commandName) ; 

if (command == 255) { 

debugHi (( "Bad Button: %s", commandName)); 
return; 

} 

ir__initWords (command) ; 
ir_code_init (&codes->code) ; 

ir_strtocode (temp, 1, (char) remote- >bits , fccodes- >code) ; 
send(codes, remote, (unsigned short ) remote- >min_repeat) ; 
i r_endWords( command ) ; 



void ir_conf igTest (void) 

{ 

struct ir ncode codes; 



memset ( (char *)&remote, 0, sizeof (remote) ) ; 

debugPutstrHi (( "compile Test rules")); 
def ineRemoteTest (&remote) ; 



debugPutstrHi ( ( "compile Test buttons") ) ; 

def ineButtonTest (^remote, &codes, "PLAY", "0xE718") ; 
def ineButtonTest (&remote, &codes, "STOP", "0xE619"); 



#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

#include " support . h" 
#ifdef IR_RULES 

#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include "f sdtablelarge . h" 
#include "sendirrules . h" 
#include " sendir common. h" 

#ifdef PIC 

#include "tablereadwrite .h" 

# include "delay. h M 

#else 

#include "pcromchip . h" 
#endif 



struct ir_remote * repea t_r emote =NULL; 
struct ir_ncode * r epea t_c ode = NULL; 



extern const unsigned char *f lashMemory ; 
extern short of f setFlashMemory ; 

extern short irScriptBuf f er ; 

extern short currentScriptBuf f er; 

extern short numScriptBuf f ers ; 

extern unsigned short scriptBuf f er [] ; 



#define MAXIRDATA 10000 

unsigned short irPointers [MAXIRCOMMAND] ; 
short currlrCommandLength; 



static short irmacros [MAXIRMACRO+1] ; 



void ir_ruleslnit (void) 

{ 

short i ; 



for (i=0; i < MAXIRMACRO+1; i++) { 
i rmac ro s [ i ] = N0DE_ERR0R ; 

} 

for (i=0; i < MAXIRCOMMAND; i++) { 
irPointers [i] = -1; 

} 
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Nodeld ir_f indMacro( short butNumber, const char *butName) 
{ 

Nodeld butLoc; 

f sd_switchRomBuf f er (irScriptBuf fer) ; 

if (butNumber >= 0 && butNumber <= MAXIRMACRO) { 

if ( irmacros [butNumber] == NODE_ERROR) { 

butLoc = f sdint_f indButton (NODEJROOT, " IrMacro", butName) ; 

irmacros [butNumber] = butLoc; 

} 

else { 

butLoc = irmacros [butNumber] ; 

} 

} 

if (butLoc != NODE_ERROR) { 

butLoc = f sdint_f ormBuf f erNode (butLoc) ,- 

} 

f sd__unswitchRomBuf fer () ; 
return butLoc; 



void ir_initWords (unsigned char command) 

{ 

if (command > MAX I RCOMMAND - 1) return; 

debug (( "Command: %d at %d" / command, irdataOf f set) ) ; 

currlrCommandLength = 0; 

ir_addWord (0 , command) ; 

i r_addWord ( 0 , 0 ) ; 

irPointers [command] = irdataOf f set ; 



void ir_addWord(char flag, unsigned long word) 

{ 

unsigned short newWord; 
do { 

if (word > 0x7ffe) { 

newWord = 0x7ffe; 

} 

else { 

newWord = (unsigned short) word; 

} 

word -= newWord; 
if (flag) newWord |= 0x8000; 
if (irdataOf f set < MAXIRDATA) { 



#ifdef PIC 

#else 

#endif 



TableWrite ( (unsigned char *) &flashMemory [irdataOf f set] , (unsigned c 
memcpy ( (unsigned char *) &flashMemory [irdataOf f set] , &newWord, sizec 

} 

irdataOf f set += sizeof (unsigned short); 
currlrCommandLength += sizeof (unsigned short); 



} while (word > 0) ; 



void ir_endWords (unsigned char command) 

{ 
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unsigned short newWord; 
short offset; 

offset = irPointers [command] ; 
offset -= sizeof (unsigned short); 

newWord = currlrCommandLength - (2 * sizeof (unsigned short)); 
if (irdataOffset < MAX I RD AT A) { 
#ifdef PIC 

TableWrite ( (unsigned char *) &f lashMemory [of f set] , (unsigned char *)&newWord, 

#else 

memcpy( (unsigned char *) &f lashMemory [of f set] , &newWord, sizeof (unsigned shoi 

#endif 

} 

} 



void ir_sendWords (unsigned char command) 

{ 

short address; 
unsigned short word; 
short length, i; 

if (command > MAXIRCOMMAND - 1) return; 

address = irPointers [command] ; 
if (address == -1) return; 

memcpy (fclength, flashMemory+ (long) address- sizeof (unsigned short), 2); 
#ifdef PIC 

di() ; 

#endif 

for (i = 0; i < length; i+=2) { 

memcpy ( &word , flashMemory+ (long) address , 2) ; 
if (word == Oxffff) break; 

if (word & 0x8000) { 

ir_LedOn ( (unsigned short) (word & 0x7fff ) ) ; 

} 

else { 

ir_LedOf f (word) ; 

} ' 

address += 2; 

} 

#ifdef PIC 

ei() ; 

ttendif 
} 



void i r_init Point ersFromRom( short address, short len) 

{ 

short offset = address; 
short command, length; 

#ifndef PIC 

pc__readFlash (offset, len) ; 

#endif 

while (offset < address + len) { 

memcpy (&command, &f lashMemory [of f set] , 2) ; 
offset += 2; 

memcpy (&length, &f lashMemory [of f set] , 2) ; 
offset += 2; 

irPointers [command] = offset; 
offset += length; 
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} 

of f setFlashMemory = address; 
currentScriptBuf f er = numScriptBuf fers ; 
numScriptBuf f ers++ ; 

scriptBuf f er [currentScriptBuf fer] = of f setFlashMemory ; 
of f setFlashMemory •+= len; 

} 



void ir_sendNumbersSt ring (const char *sNum) 

{ 

short i, len; 
char sNumber; 

len = strlen (sNum) ; 
for (i = 0; i < len; i++ ) { 
sNumber = *sNum++; 

sNumber -= • 0 1 ; 
switch (sNumber) { 
case 0: 

ir_sendWords (NUM_0) ; 
break; 

case 1: 

ir__sendWords (NUM_1) ; 

break ; 

case 2 : 

ir_sendWords (NUM_2 ) ; 

break ; 

case 3 : 

ir_sendWords (NUM_3 ) ; 

break ; 

case 4 : 

ir_sendWords (NUM_4 ) ; 

break; 

case 5: 

ir_sendWords(NUM_5) ; 

break; 

case 6: 

ir_sendWords (NUM_6) ; 

break ; 

case 7: 

ir__sendWords (NUM_7) ; 

break ; 

case 8: 

ir_sendWords (NUM_8) ; 

break; 

case 9: 

ir_sendWords (NUM_9) ; 

break ; 

} 

Jtifdef PIC 

#endif 
} 

} 



static char is_biphase (struct ir_remote *remote) 

{ 

if (remote && (remote- >f lags ScRC5_C0DE || remote- >flags&RC6_C0DE) ) return(l); 
else return (0) ; 

} 



static char is_rc6 (struct ir_remote *remote) 

{ 

if (remote && remote ->f lag s&RC6_CODE) return ( 1) ; 
else return (0) ; 

} 



static char is_rcmm( struct ir_remote * remote) 

{ 

if (remote && remote- >f lag s&RCMM) return(l); 
else return (0) ; 

} 



static char is_raw( struct ir__remote *remote) 

{ 

if (remote && remote ->f lag s&RAW_CODES) return(l); 
else return (0) ; 

} 



static char is_const (struct ir_remote *remote) 

{ 

if (remote && remote->f lags & CONST_LENGTH) return(l); 
else return (0) ; 

} 



static char ha s_header (struct ir_r emote * remote) 

{ 

if (remote && remote- >phead>0 && remote- >shead>0) return(l); 
else return (0) ; 

} 

static char has__foot (struct ir_remote *remote) 

{ 

if (remote && remote->pf oot>0 && remote->sf oot>0) return(l); 
else return (0) ; 

} 



static char has_repeat (struct ir_remote *remote) 

{ 

if (remote && remote- >prepeat>0 && remote- >srepeat>0) return (1) 
else return (0) ; 

} 

static char has_repeat_gap (struct ir_remote * remote) 

{ 

if (remote && remote- >repeat_gap>0 ) return(l); 
else return (0) ; 

} 
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static char has_pre (struct ir_remote *reraote) 

{ 

if (remote && remote- >pre_dat a Jbits>0) return(l); 
else return (0) ; 

} 

static char has_post (struct ir_remote *remote) 

{ 

if (remote && remote- >post_data_bits>0) return ( 1) ; 
else return (0) ; 

} 



unsigned long s__strtoul (char *val, char **endptr, char base) 

{ 

unsigned long result=0; 
unsigned char c; 

while (*val=='\t' || *val==» ■) val++; 
if(base==0) 

if (val [0]=='0' ) 

if (val [l]==»x' || val[l]=='X') 
{ 

base=16 ; 
val+=2 ; 

} 

else 

{ 

val++ ; 
base=8; 

} 

else 

base=10; 



while(l) 
{ 

c = *val; 

if(c >= '0' && c <= '9') c = c - 'O'; 
else if(c >= 'a' && c <= 'f') c = (c - 'a') + 10; 
else if(c >= 'A' && c <= 'F') c = (c - 'A') + 10; 
else break; 



result *= base; 
result += c; 
val++ ; 
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*endptr=val ; 
return result; 



void send_space (unsigned long length) 

{ 



ir_addWord(0, length) ; 

} 



void send_pulse (unsigned long length) 

{ 

ir_addWord(l, length) ; 



void ir_strtocode (char *val, char which, char numBits, ir_code *code) 

{ 

unsigned long value; 
char *endptr; 

value = s_strtoul(val,&endptr,0) ; 

if (strlen(endptr) !=0 | | strlen (val) ==0) 

{ 

code- >data [which] = 0; 
code- >bits [which] = 0; 
return; 

} 

code- >data [which] = value; 
code- >bits [which] = numBits; 
return; 



void ir_code_init (ir_code *code) 

{ 

char i; 

for (i=0; i < IR_CODE_LENGTH; i++) { 
code->data [i] = 0; 
code->bits [i] = 0; 

} 

} 

static char ir_code_hasData ( ir_code *code) 

{ 

char i; 

for (i=0; i < IR_CODE_LENGTH; i++) { 

if ( ! (code->bits [i] == 0)) return 1; 

} 

return 0; 



} 



void ir_send_data long (unsigned long value, char bits) 

{ 

while(bits-- > 0) { 

if (value & 1) { 

} 

else { 

} 

value = value >> 1; 



void ir_set_bit (ir_code *code, short bitnum, char data) 
{ 

short which=IR_CODE_LENGTH- 1 ; 
short whichBit =bitnum; 
char totalBits=0; 

if ( (short ) bitnum < 0) return; 

for (which=IR_CODE_LENGTH-l; which >=0; which--) { 
totalBits += code- >bits [which] ; 
if (bitnum < totalBits ) { 



code- >data [which] &= -(1 << whichBit); 

code- >data [which] |= (data ? 1:0) << whichBit; 

break; 

} 

whichBit -= code- >bits [which] ; 

} 

} 



char ir_get_bit (ir_code *code, short bitnum) 
{ 

short which=IR_CODE_LENGTH- 1 ; 
short whichBit=bitnum; 
char totalBits=0; 

if (bitnum < 0) return 0; 

for (which=IR_CODE_LENGTH-l; which >=0; which--) { 
totalBits += code- >bits [which] ; 
if (bitnum < totalBits ) { 

if (code- >data [which] & (1 << whichBit) ) { 
return 1 ; 

} 

else { 

return 0; 

} 

} 

whichBit -= code- >bits [which] ; 

} 

return 0; 



void ir_reverse (ir_code *inCode, ir_code *outCode) 

{ 

char i, sourceBit, bitnum; 
char destBit; 
char totalBits=0; 

ir_code_init (out Code) ; 

for(i=0; i < IR_CODE_LENGTH; i++) { 

totalBits += inCode->bits [i] ; 
outCode->bits [i] = inCode- >bits [i] ; 

} 

destBit = totalBits-1; 

for (sourceBit=0; sourceBit < totalBits; sourceBit++) 

{ 

bitnum = ir_get_bit ( inCode , sourceBit); 

if (bitnum) { 

ir_set_bit (out Code, destBit, bitnum) 

} 

destBit-- ; 



void send_header (struct ir_remote * remote) 

{ 

if ( ha s_header (remote) ) 

{ 

send_pulse (remote ->phead) ; 
. send_space (remote- >shead) ; 



void send_foot (struct ir__remote *remote) 

{ 

if (has_f oot (remote) ) 

{ 

send_space (remote- >sf oot ) ; 
send_pulse (remote ->pf oot) ; 



void send_lead( struct ir_remote * remote) 

{ 

if (remote- >plead!=0) 

{ 

send_pulse (remote- >plead) ; 



void send_trail (struct ir_remote *remote) 

{ 

if (remote- >ptrail !=0) 

{ 
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send_pulse(remote->ptrail) ; 

} 

void send_data (struct ir_remote *remote, ir_code *inData, int bits) 

{ 

char i; 
ir_code data; 

if ( ! (remote- >f lags&REVERSE) ) { 

ir_reverse (inData, &data) ; 

} 

else { 

memcpy (&data, inData, sizeof (data) ) ; 

} 

f or (i=0 ;i<bits;i++) 

{ 

if (ir_get_bit Udata, i)) 
{ 

if (is_biphase (remote) ) 

{ 

if (is_rc6 (remote) && i+l==remote- >toggle_bit ) 

{ 

send_space (2*remote->sone) ; 
send_pulse (2*remote->pone) ; 

} 

else 

{ 

send_space (remote- >sone) ; 
send__pulse (remote ->pone) ; 

} 

} 

else 

{ 



send_pulse (remote- >pone) ; 
send_space (remote- >sone) ; 



} 

else 

{ 



if (is_rc6 (remote) && i+l==remote->toggle_bit) 

{ 

send_pulse (2*remote->pzero) ; 
send_space (2*remote- >szero) ; 

} 

else 

{ 

send_pulse (remote- >pzero) ; 
send_space (remote- >szero) ; 



} 

void send_pre (struct ir_remote *remote) 

{ 

ir_code pre; 

if (has_pre (remote) ) 
{ 



memcpy(&pre, &remote- >pre_data, sizeof (pre) ) ; 
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} 



if (remote- >toggle_bit>0) 

{ 

if ( remote- >toggle_bit<=remote->pre_data_bits) 

{ 

ir_set_bit (&pre, 

(char) ( remote ->pre_data_bits - remote- >toggle_bit 
(char) remote- >repeat_state) ; 

} 

} 

if (ir_code_hasData (&pre) ) { 

send_dat a (remote, &pre, remote - >pre_data_bits ) ; 

} 

if (remote- >pre_p>0 && remote- >pre_s>0) 

{ 

send_j?ulse (remote- >prejp) ; 
send_space (remote- >pre_s) ; 

} 



void send_jx>st (struct ir_remote *remote) 

{ 

if (has_post (remote) ) 

{ 

ir_code post; 



memcpy (&post, &remote->post_data, sizeof (post ) ) ; 
if ( remote- >toggle_bit>0) 

{ 

if (remote- >toggle_bit>remote->pre_data_bits 
+remote->bits 

ScSc 

remote ->toggle__bit<=remote->pre_data_bits 
♦remote- >bits 
+ remote - >post_data_bi t s ) 



{ 



ir_set_bit (&post , 

(char) ( remote- >pre_data_bits + remote- >bits 

+ remote- >po st _datajbi • 
(char) remote- >repeat_state) ; 



} 



if (remote- >post_p>0 && remote- >post_s>0 ) 

{ 

send_pulse (remote- >post_p) ; 
send_space (remote- >post_s) ; 

} 

if (ir_code_hasData (&post) ) { 

send_data (remote, &post, remote- >post_data_bits) ; 

} 



void send_repeat (struct ir remote *remote) 

{ 

send_lead( remote) ; 
send_pulse (remote ->prepeat) ; 
send_space (remote- >s repeat) ; 
send_trail (remote) ; 
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void send_code (struct ir_remote ♦remote, ir_code *code) 
{ 

if ( remote ->toggle_bit>0) 

{ 

if (remote- >toggle_bit>remote->pre_data_bits 

ScSc 

remote- >toggle_bit<=remote->pre_data_bits 
+remote->bits) 

{ 

ir_set_bit (code, 

(char) ( remote ->pre_data_bits + remote->bits - remote 

(char) remote- >repeat_state) ; 

} 

else if ( remote- >toggle_bit >remote- >pre_data_bits 
+remote->bits 
+remote->post_data_bits) 

{ 
} 



if (repeat_remote==NULL | | ! (remote- >flags&NO_HEAD_REP) ) 
send_header (remote) ; 



send_lead (remote) ; 



send_pre (remote) ; 

send_dat a (remote, code, remote- >bits) ; 
send_post (remote) ; 
send_trail (remote) ,- 

if (repeat_remote==NULL | | ! (remote- >f lag s&NO_FOOT_REP) ) 
send_foot (remote) ; 

} 

int init_send (struct ir_remote *remote, struct ir_ncode *code) 

{ 

if (is_rcmm( remote) ) 

{ 

return (0) ; 

} 



if (repeat_remote != NULL && has_repeat (remote) ) 

{ 



if (remote->f lags & RE PEAT__HE ADER && has_header (remote) ) 

{ 

send_header (remote) ; 

} 

send_repeat (remote) ; 

} 

else 

{ 

if ( ! is_raw (remote) ) 

{ 

send_code (remote, &code->code) ; 

} 

else 

{ 
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sendRaw ( code ->signals, code - > 1 eng t h ) ; 



> 



if (is_const (remote) ) 

{ 

remote- >remaining_gap=remote->gap; 

} 

else 

{ 

if (has_repeat_gap (remote) && 
repeat_remote!=NULL && 
has_repeat (remote) ) 



else 



} 

return (1) ; 



remot e->rema ining_gap= remote ->repeat_gap ; 



remote- >remaining_gap= remote- >gap ; 



void sendRaw (unsigned long *raw, int cnt) 

{ 



int i; 



for (i=0 ;i<cnt ;i++) { 

if (i%2) send_space (raw [i] ) ; 
else send_j)ulse (raw [i] ) ; 

} 



void send (struct ir_ncode *data, struct ir_remote * remote, unsigned short reps) 

{ 

if Uremote) return; 



if (remote- >toggle_bit > 0) { 



remote- >repeat state = ! remote- >repeat_state 

} " " 

init_send ( remote, data) ; 
send_space (remote- >remaining_gap) ; 
if (reps>0) 

{ 

repeat_remote=remote ; 

repeat_code=data ; 

for (; reps > 0; --reps) 

{ 

init_send (remote, data) ; 
send_space (remote- >remaining_gap) ; 

} 

repeat_remot e=NULL ; 
repeat_code=NULL ; 

} 
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#endif 
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/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
*/ 

#ifndef DELAY_H 

# define DELAY_H 



# include "config.h" 

extern unsigned char delayus_variable; 

#if PIC_CLK == 4000000 

#define DelayDivisor 4 

#define Wait For lUs asm ("nop") 

#define Jumpback asm ("goto $ - 4") 
#elif PIC_CLK == 8000000 

#define DelayDivisor 2 

#define Wait For lUs asm ("nop") 

#define Jumpback asm ("goto $ - 4") 
#elif PIC_CLK == 10000000 

#define DelayDivisor 2 

#define WaitForlUs asm("nop"); asm("nop"); 

#define Jumpback asm ("goto $ - 6") 
#elif PIC_CLK == 16000000 

tfdefine DelayDivisor 1 

#define WaitForlUs asm ("nop") 

ftdefine Jumpback asm ("goto $ - 4") 
#elif PIC_CLK == 20000000 

#define DelayDivisor 1 

#define WaitForlUs asm("nop"); asm("nop"); 
#define Jumpback asm ("goto $ - 6") 
#elif PIC_CLK == 32000000 

#define DelayDivisor 1 

#define WaitForlUs asm ( "nop" ) ; asm("nop"); asm("nop"); asm("nop"); asm("nop") 
#define Jumpback asm ("goto $ - 12") 

#else 

#error delay. h - please define PIC_CLK correctly 

#endif 

#define DelayUs (x) { \ 

delayus_variable= (unsigned char) (x/DelayDivisor) ; \ 
asm("movlb (_delayus_variable) >> 8"); \ 
WaitForlUs; } \ 

asm("decfsz (_delayus_variable) &0f f h ; f " ) ; \ 
Jumpback ; 
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#define LOOP_CYCLES_CHAR 9 

#def ine timeout_char_us (x) (long) ( ( (x) /LOOP_CYCLES_CHAR) * (PIC_CLK/1000000/4 ) ) 
#define LOOP_CYCLES_INT 16 

#define timeout_int_us (x) (long) ( ( (x) /LOOP_CYCLES_INT) * ( PIC_CLK/1000000/4 ) ) 



#def ine timeout__int_lobyte_zero_us (x) (long) ( ( (x) /LOOP_CYCLES_INT) * (PIC_CLK/4 . 0) &0xFF00 



void DelayBigUs (unsigned int cnt); 
void DelayMs (unsigned int cnt) ; 
void Delays (unsigned char cnt); 



#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

# include "support.h" 

#include "f sdtablelarge . h" 

#include " f sdinterpretertable . h" 

#include <string.h> 

#include <time.h> 

#ifdef IR_RULES 

# include "sendir common .h" 

#endif 

#ifdef IR_UNIV_CHIP 
#include "sendirunivchip.h" 
#endif 

#ifdef DEBUG 
#include <stdio.h> 
#endif 

extern char TEMPBUFFER [] ; 

#ifdef PIC 

#include <picl8.h> 

extern long TICKS; 

void checkBut tons (void) ; 

#endif 



static BOOL condition (const char *name, const char *oper, const char *value) ; 
static BOOL testCondition (Nodeld commandNode); 
static Nodeld setupTrick (const Nodeld commandNode) ; 



void PushPlaylnitialize (void) ; 

static const char **sCommands; 

static short (*process Command) (short i Command, Nodeld commandNode, 

static void ( *inf oCaller) (const char *msg) ; 

static BOOL bStopInterpreter; 

static BOOL blnterpreterStopped; 

static BOOL bStopExecuteButton; 

static BOOL bStopExecuteButtonlnternal ; 



Nodeld buttons [], short I 



extern short maxNode; 

extern short maxAt tribute; 

extern TextLoc maxTextLoc; 

extern short currentScriptBuf f er ; 



Nodeld f sdint_formBuf ferNode (Nodeld inNode) 
{ 

Nodeld ret; 

if (inNode == NODE__ERROR ) return inNode; 
if (inNode < 0) 

ret = ( (currentScriptBuf fer & 7) << 12) + 0x8000; 

else 

ret = currentScriptBuf fer << 12; 

ret += inNode & OxFFF; 
return ret; 
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Nodeld f sdint_getBuf f erNode (Nodeld inNode) 
{ 

if (inNode == NODE^ERROR) return inNode; 
if (inNode & 0x8000 ) { 

return (inNode & OxFFF) + OxFOOO; 

} 

else { 

currentScriptBuf f er = (inNode & 0x7000) >> 12; 
return inNode & OxFFF; 

} 

} 



void fsdint_init Commands (const char *Commands[], short (*procCall) (short, Nodeld, NodeId[], i 

{ 

f sd_setMainScriptBuf f er ( ) ; 

sCommands = Commands; 
processCommand = procCall; 
infoCaller = infoCall; 
bStopInterpreter = FALSE; 
blnterpreterStopped = TRUE; 
f sdint__ButtonsOn ( ) ; 



short f sdint_lookupCommand (const char *command) 

{ 

short cnt; 
cnt = 0; 
while (1) { 

if (sCommands [cnt] == NULL) break; 

if ( st rcmp (sCommands [cnt] , command) ==0) { 
return cnt; 

} 

cnt++ ; 

} 

return -1; 

} 



void fsdint_ButtonsOff Internal (void) 
bStopExecuteButtonlnternal = TRUE; 



void f sdint_ButtonsOnInternal (void) 

bStopExecuteButtonlnternal = FALSE; 



void f sdint_ButtonsOf f (void) 
bStopExecuteButton = TRUE; 



void f sdint_ButtonsOn (void) 

bStopExecuteButton = FALSE ; 



void f sdint_executeBut ton (const char *sName) 

{ 

if {! (bStopExecuteButton | | bStopExecuteButtonlnternal) ) { 
S Enqueue (sName) ; 

} 

} 



void f sdint_startlnterpreter ( ) 

{ 

Nodeld buttonNode; 
TextLoc loc; 
PtrTextLoc pCommand; 
long start; 
short firstLoop; 
#ifdef AUTORUN 

int count=0; 

#endif 

Nodeld globalNode; 
short ret; 

start = 0; 

firstLoop = TRUE; 

bstoplnterpreter = FALSE; 

pCommand = NULL; 
blnterpreterStopped = FALSE; 
EmptylStackO ; 

globalNode = f sd_slotNode ( ) ,- 

I Push (f sdint_f ormBuf f erNode (globalNode) ) ; 

f sdint_ButtonsOn() ; 

debugPutstrHi ( ("Intrp Started") ) ; 

while (TRUE) { 
#ifdef PIC 



#endif 

#ifdef AUTORUN 



checkButtonsO ; 



if (count == 0 ) { 

f sdint_executeButton( "Startup" ) ; 
count ++; 

} 

else if (count == 1) { 

f sdint__executeButton ( "ButtonO" ) ; 
count ++ ; 

} 



#endif 



if (! pCommand) { 

loc = f sd_slotTextBlock ( ) ; 

pCommand = f sd_f etchTextLocPtr (loc) ; 

} 

if (pCommand == NULL) { 

debugPutstrHi ( "no TextLoc ! " ) ; 
return; 

}; 

if (firstLoop) { 

f sdint_executeButton ( "Startup" ) ; 

} 

#ifdef MANUAL INPUT 

if (IfirstLoop Sc& bstoplnterpreter == FALSE) { 



puts ("Button?: ") ; 
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} 
} 

#endif 



gets (pCommand) ; 

if ( st rlen (pCommand) ) { 

f sdint_executeButton (pCommand) 



firstLoop = FALSE; 
start = GetTicks () 



if (bStopInterpreter == TRUE ) { 
f sdint_ButtonsOf f () ; 
debugPutstrHi ("Intrp Stopped") ; 
blnterpreterStopped = TRUE; 
break; 

} 

ret = SDequeue (pCommand, MAX_COMMANDS I ZE ) ; 
if (ret) { 

f sd_setMainScriptBuf f er ( ) ; 

EmptyRStack ( ) ; 

while (iCountO > 1) { 
IPopO ; 

} 

buttonNode = f sdint_f indButton (NODE_ROOT, "Button", pCommand); 
if (buttonNode == NODE_ERROR ) { 

debugHi ( ( "No script %s" , pCommand) ) ; 

} else { 

debugHi ( ( "Start : %s" , pCommand) ) ; 

buttonNode = f sdint_f ormBuf f erNode (buttonNode) ; 
f sd_scratchTextBlock (loc) ; 
pCommand = NULL; 

f sdint_interpretButton (buttonNode) ; 

#ifdef PIC 

debugHi ( ("Time: %d" , (short )( (GetTicks ( ) - start) / 1000)) 

#else 

debugHi ( ("Time: %d", GetTicks () - start )); 

#endif 

debugHi (( "max: %d %d %d" # maxNode^axAttribute^axTextLoc) 

} 

} 

} 

if (pCommand) 

f sd_scratchTextBlock(loc) ; 

f sd_scratchNode (globalNode) ; 
EmptylStack ( ) ; 
EmptyRStack ( ) ; 
EmptySQueue ( ) ; 

} 



void fsdint_Initialize(void) 
{ 

f sd_Initialize () ; 
ir_Initialize ( ) ; 
f sd_LoadMainScript () ; 
PushPlaylnitializeO ; 

} 



void f sdint_Run!nterpreter (void) { 
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while(l) { 

f sdint__Initialize ( ) ; 

f sdint_startlnterpreter () ; 

} 



void f sdint_Restart (void) 

{ 

epromlnitialize (TRUE) ; 
bStopInterpreter = TRUE; 
#ifdef PIC 

asm ( "reset" ) ; 

#endif 



} 



void f sdint_Reset (void) 

{ 

bStopInterpreter = TRUE; 

f sd_clearEpromScript (MAINSCRIPT, -1) ; 



void f sdint_GetIrScript (void) 

{ 

epromlnitialize (TRUE) ; 
bStopInterpreter = TRUE; 



void fsdint_SetIrScript (short scriptld) 

{ 

epromlnitialize (TRUE) ; 

epromWriteWord(EPROM_IR_SCRIPTID, scriptld) ; 
bStopInterpreter = TRUE ; 



Nodeld f sdint_f indButton (Nodeld startNode, const char *sName, const char *sld) 
{ 

Nodeld id; 

Nodeld root; 
Nodeld retld; 
TextLoc loc; 
PtrTextLoc nodeName; 

retld = NODE_ERROR; 

if (startNode == NODE_ROOT) { 

root = f sd_getRootNode ( ) ; 

} else { 
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root = startNode; 

} 

if (root == NODE_ERROR) { 

return NODE_ERROR; 

} 

loc = f sd_slotTextBlock( ) ; 

nodeName = f sd_f etchTextLocPtr (loc) ; 

if (nodeName == (PtrTextLoc) NODE_ERROR) return NODE_ERROR ; 
id = f sd_f etchNodeId(root, FIRSTCHILD) ; 

while (Mid == NODE_EMPTY || id == NODE_ERROR) ) { 

fsd_get NodeName (id, nodeName, CHAR_BUFFERSIZE) ; 
if ( strnocasecmp (nodeName, sName) == 0 ) { 

if (sld == NULL) { 

ret Id = id; 
break ; 

} 

fsd_getAttribute(id, "id", nodeName, CHAR_BUFFERSIZE) ; 
if ( strnocasecmp (nodeName, sld) ==0) { 
ret Id = id; 

break; 

} 

} 

id = fsd_fetchNodeld(id,NEXTNODE) ; 

> 

f sd_scratchTextBlock(loc) ; 
return ret Id; 



void f sd_getCommandParameter (const char *name, const Nodeld commandNode, char *buffer, const 

{ 

IPush(f sdint_f ormBuf ferNode (commandNode) ) ; 
fsdint_f etch (name, buffer, len) ; 
IPopO ; 

} 

static Nodeld setupTrick (const Nodeld commandNode) 
{ 

char buffer [CHAR_BUFFERSIZE] ; 
Nodeld trickNode; 

fsd_getCommandParameter("id", commandNode, buffer, CHAR_BUFFERSI2E) ; 
trickNode = f sdint_f indButton (NODE_ROOT, "Trick", buffer); 
if ( trickNode == NODE__ERROR ) { 

debugHi ( ("No Trick: %s" , buffer)); 

return NODE_ERROR; 

} 

else { 

debugHi ( ("Trick Start: %s", buffer)); 
return trickNode; 

} 



void f sdint_interpretButton (const Nodeld buttonNode) 

{ 

Nodeld commandNode; 
Nodeld trickNode; 
short iCmd; 
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short pos, i; 
short count ; 
Node Id topNode, nextNode; 

Nodeld buttons [NUMRETURNNODES] ; 

debugHi ( ("Stack Counts: %d %d" , ICountO, RCount ())) ; 

topNode = fsdint_getBuff erNode (buttonNode) ; 
pos = 0 ; 
while (1) { 
#ifdef PIC 

checkButtons ( ) ; 

#endif 

if (pos == 0) { 

IPush (f sdint_f ormBuf f erNode (topNode) ) ; 

} 

commandNode = f sd_getChildByPos (topNode, pos); 
if (commandNode == NODE_ERROR) { 

IPopO ; 

if (RCount () > 0) { 

pOS = RPop ( ) ; 
nextNode = RPop ( ) ; 

topNode = f sdint_getBuf f erNode (nextNode) ; 
continue ; 

} 

else { 

break; 

} 

} 



if ( IQueuelsEmpty () | | bStopInterpreter ) { 
break ; 

} 

f sd_getNodeName( commandNode, TEMPBUFFER, CHAR_BUFFERSIZE) ; 

iCmd = f sdint_lookupCommand (TEMPBUFFER) ; 
if ( iCmd != -1 ) { 

switch (iCmd) { 



case 27: 

if (testCondit ion (commandNode) ) { 

RPush (f sdint_f ormBuf f erNode (top 

RPush(++pos) ; 

topNode = commandNode; 

pos = 0; 

continue; 

} 

break; 



case 29: 

trickNode = setupTrick (commandNode) ; 
if (trickNode != NODE_ERROR) { 

RPush (f sdint_f ormBuf f erNode (top 

RPush (++pos) ; 
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topNode = trickNode; 

pos = 0; 

continue; 

} 

break; 

default: 

IPush (f sdint_f ormBuf f erNode (commandNode) ) ; 

count = processCommand(iCmd, commandNode 
if (count > 0) { 



RPush ( fsdint_f ormBuf f erNode ( top 
RPush(++pos) ; 

RPush(f sdint_f ormBuf f erNode (com 

RPush (1) ; 

if (count > 1) { 



for (i = count - 1; i : 
RPush (buttons 
RPush (0) ; 

} 



topNode = f sdint_getBuf f erNode [. 

pos = 0; 

continue; 

} 

else { 

IPopO; 

} 
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static BOOL testCondition (Nodeld commandNode ) 
{ 

char name [CHAR_BUFFERSIZE] , value [CHAR_BUFFERSIZE] , oper [CHAR_BUFFERSIZE] ; 

f sd_getCommandParameter ( "id" , commandNode, name, CHAR_BUFFERSIZE) ,* 
f sd_getCommandParameter ( "value" , commandNode, value, CHAR_BUFFERSIZE) ; 
f sd_getCommandParameter ( "oper" , commandNode, oper, CHAR_BUFFERSIZE) ; 
return condition (name, oper, value); 

} 

static BOOL condition (const char *name, const char *oper, const char *value) 
{ 

char sValue [ CHAR_BUFFERS I ZE ] ; 
short result; 

fsdint_f etch (name, sValue, CHAR_BUFFERSIZE) ; 
result = strcmp (sValue, value); 

if (strcmp (oper, "eq") ==0) { 

if (result == 0) return TRUE; 
} else if (strcmp (oper, "neq") ==0) { 

if (result != 0) return TRUE; 
} else if (strcmp(oper, "gt") == 0) { 

if (result == 1) return TRUE; 
} else if (strcmp(oper, "It") == 0) { 

if (result == -1) return TRUE; 

} 

return FALSE; 



void fsdint_store (const char *name, const char *value) 

{ 

Nodeld node , nextNode ; 

short saveRomBuf fer; 
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saveRomBuf f er = currentScriptBuf fer ; 



nextNode = I Peek ( (short) (I Count ( ) - 1) ) ; 

node = f sdint_getBuf f erNode (nextNode) ; 
if (node != NODE_ERROR ) { 

fsd_set At tribute (node, name, value) ; 

} 

currentScriptBuf fer = saveRomBuf fer ; 



void fsdint_f etch (const char *name, char *buffer, const short len) 

{ 

short iCnt; 
short i ; 

Node Id node , nextNode ; 

TextLoc loci, loc2; 
PtrTextLoc sName, sAttrib; 
short saveRomBuf fer ; 

saveRomBuf fer = currentScriptBuf fer ; 

loci = f sd_slotTextBlock.() ; 

loc2 = f sd_slotTextBlock() ; 

sName = fsd_f etchTextLocPtr (loci) ; 

sAttrib = fsd_f etchTextLocPtr (loc2) ; 

if (! sName | | ! sAttrib) { 
buffer [0] = 0; 

debugPutstrHi ( "slottextBlock failure") ; 
goto exit; 

} 



if (strlen(name) > ( CHAR_BUFFERS I ZE - 1) ) 
buffer[0] = 0; 
goto exit; 



s t r cpy ( sName , name ) ; 
iCnt = I Count ( ) ; 
i = 0; 
while (1) { 

nextNode = I Peek (i) ; 

node = fsdint_getBuff erNode (nextNode) ; 
if ( node != NODE_ERROR ) { 

fsd_get At tribute (node, sName, sAttrib, CHAR_BUFFERSIZE) ; 

if (strlen( sAttrib) > 0) { 

if (sAttrib[0] == ) { 

strcpy (sName, &sAttrib[l] ) ; 

i = 0; 

continue; 

} 

else { 

break; 

} 

} 

} 

i + +; 

if (i >= iCnt) break; 

} 

if (strlen (sAttrib) >= (unsigned short) (len - 1) ) { 
sAttrib [len - 1] =0; 
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} 

strcpy (buffer, sAttrib) ; 

exit: 

f sd_scratchTextBlock(locl) ; 
f sd_scratchTextBlock(loc2) ; 
currentScriptBuf fer = saveRomBuf f er ; 



void fsdint_increment (const char *name, const short minValue, const short maxValue) 

{ 

short iValue; 

TextLoc loci; 
PtrTextLoc sValue; 

loci = f sd_slotTextBlock() ; 

sValue = f sd_f etchTextLocPtr (loci) ; 

if (sValue != (PtrTextLoc) NODE_ERROR) { 

fsdint^f etch (name, sValue, CHAR_BUFFERSIZE) ; 
iValue = fsd_get Integer (sValue) ; 
iValue++ ; 

if (iValue > maxValue) iValue = minValue; 
longToAscii (iValue, sValue); 
fsdint_store (name, sValue); 

} 

else { 

debugPutstrHi ( "slottextBlock failure") ; 

} 

f sd_scratchTextBlock(locl) ; 



void fsdint_append( const char *name, const char * value) 

{ 

TextLoc loci ; 
PtrTextLoc sValue; 

loci = f sd_slotTextBlock() ; 

sValue = fsd_f etchTextLocPtr (loci) ; 

if (sValue != (PtrTextLoc) NODE_ERROR) { 

fsdint_f etch (name, sValue, CHAR_BUFFERS I ZE ) ; 

if ( (strlen (sValue) + strlen (value) ) < CHAR_BUFFERS I ZE ) { 
strcat (sValue, value); 

} 

fsdint_store (name, sValue) ; 

} 

else { 

debugPutstrHi ( "slottextBlock failure") ; 

} 

f sd_scratchTextBlock(locl) ; 

} 



long GetTicks (void) 
{ 

#ifdef PIC 

return TICKS; 

#else 



clock_t ticks; 
ticks = clock () ; 
return (long) ticks ; 

#endif 
} 



void f sdint_delay (long seconds, long milliseconds) 

{ 

long ticks; 
long intDelay; 

#ifndef PIC 

return ; 

#endif 

intDelay = 0; 

if (seconds > 0) intDelay = seconds * 1000; 
intDelay += milliseconds; 
ticks = GetTicksO + intDelay; 
while (ticks > GetTicksO) { 

#ifdef PIC 

checkButtons ( ) ; 

#endif 

if ( !QueueIsEmpty ( ) | | bStopInterpreter ) break; 

} 

} 



void f sdint_hardDe lay (long seconds, long milliseconds) 

{ 

long ticks; 
long intDelay; 

#ifndef PIC 

return; 

#endif 

intDelay = 0; 

if (seconds > 0) intDelay = seconds * 1000; 
intDelay += milliseconds; 
ticks = GetTicksO + intDelay; 
while (ticks > GetTicksO) { 
#ifdef PIC 

checkButtons ( ) ; 

#endif 

if ( bStopInterpreter ) break; 

} 

} 



/* 

* PushPlay '-- An Xml Document emula t or \ interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef squeue_h_ 

#define squeue_h_ 

tfinclude <string.h> 



#define QUEUE_DIM 4 
#define MAXQUEUE LENGTH 16 



void SEnqueue (const char *el) ; 

char SDequeue (char *el, const int len) ; 

void EmptySQueue (void) ; 
char QueuelsEmpty (void) ; 
char QueuelsFull (void) ; 

#endif 



* PushPlay --An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef _SERIAL_H_ 
#define _SERIAL_H_ 

#define BAUD 9600 
#define FOSC PICJTLK 
#define NINE 0 
#define OUTPUT 1 
#define INPUT 1 

#define SPBRG_DIVIDER ( (int ) (FOSC/ (16UL * BAUD) -1)) 
#define HIGH_SPEED 1 

#if NINE == 1 

#define NINE_BITS 0x40 

#else 

#define NINE_BITS 0 
#endif 

#if HIGH-SPEED == 0 
tfdefine SPEED 0x4 
#else 

#define SPEED 0 
#endif 

void init_comms (void) ; 
void putch (unsigned char); 
unsigned char getch(void) ; 
unsigned char getche (void) ; 
char *getsNoEcho (char *s) ; 
char *gets(char *s) ; 
int puts (const char *s) ; 



#endif 



/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina .com> 
*/ 

#ifndef _SERIAL_H_ 
#define _SERIAL_H_ 

#define BAUD 9600 
#define FOSC PIC_CLK 
#define NINE 0 
#define OUTPUT 1 
#define INPUT 1 

#define SPBRGJDIVIDER ( ( int) (FOSC/ (16UL * BAUD) -1)) 
#define HIGH_SPEED 1 

#if NINE == 1 

#define NINE_BITS 0x40 

#else 

#define NINE_BITS 0 
#endif 

#if HIGH-SPEED == 0 
#define SPEED 0x4 
#else 

#define SPEED 0 
#endif 

void init_comms (void) ; 
void putch (unsigned char); 
unsigned char getch(void); 
unsigned char getche (void) ; 
char *getsNoEcho (char *s) ; 
char *gets(char *s) ; 
int puts(const char *s) ; 



#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

void errorBeep (void) ; 
void goodBeep (void) ; 
void keypressBeep(void) ; 

#ifdef PIC 

void beep( int frequency, int duration ) ; 



#def ine 
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#define SIXTEENTH 63 
#define EIGHTH 125 

#define QUARTER 2 50 
#define HALF 500 

#define WHOLE 1000 



#endif 



/* 

* PushPlay --An Xml Document emul a tor\ interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef i2c_ccs_H 

#define i2c_ccs_H 



void random_write (char dev_adr, int mem_adr, char dat) ; 
char random_read(char dev_adr, int mem_adr) ; 

void random_readM(char dev_adr, int mem_adr, void *Data, char Num) ; 



short ROM_ReadWord ( int address) ; 

void ROM_Send(int Address, char *Data, char Num); 

void ROM_Read(int Address, void *Data, char Num); 

char i2c_in_byte (void) ; 

void i2c_out_byte (char o_byte) ; 

void i2c_nack (void) ; 

void i2c_ack(void) ; 

void i2c_start (void) ; 

void i2c_stop(void) ; 

void i2c_high_sda (void) ; 

void i2c_low_sda (void) ; 

void i2c_high_scl (void) ; 

void i2c_low_scl (void) ; 



#define TxData 0 
#define SDA_PIN RC4 
#define SCL_PIN RC3 

#define SDA_DIR TRISC4 
tfdefine SCLJDIR TRISC3 

#define I2C DELAY 0 



#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 

*/ 

# inc lude " support . h " 

#ifdef IR_RULES 

#include <stddef.h> 

#include "f sdinterpretertable . h" 

#define IR_RULES 1 

tfdefine PRONTO FREQUENCY 1000000 
#define MAXIRWORDS 80 

#ifdef PIC 

tfinclude <picl8.h> 

#include "mainlinepic . h" 

#define IR_LED_0N pwm_start() 

#define IR_LED_0FF pwm_stop() 

#endif 



void ir_initDevice (void) ; 
void ir_LedOn (const unsigned short T) ; 
void ir_LedOf f (const unsigned short T) ; 
void ir_Initialize (void) ; 

long ir_CalcFrequency (const short N) ; 

short ir_CalcOne Cycle (const long frequency); 



#define MAX I RCOMMAND 29 



#define TITLE 0 



#define MENU 1 
#define PLAY 2 
#define STOPDVD 3 
#define PAUSE 4 
#define STEP 5 



#define PREVCHAPTER 6 
#define NEXTCHAPTER 7 



#define SEARCH 8 

#define NAVJJP 9 
#define NAV_DOWN 10 
#define NAV_LEFT 11 
#define NAV_RIGHT 12 



#def ine 


REWIND 


13 


#def ine 


FORWARD 14 
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NUM_1 
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NUM_7 


21 
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#def ine 


NUM_0 
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#def ine 


POWER 
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#define MAXIRMACRO 3 

#define CHAPTERSEEK 0 
#define TITLESEEK 1 
#define TIMESEEK 2 



#define DVDDEVICE 100 

#define SUBTITLE 26 

#define AUDIO 27 

#define ZOOM 2 9 

#define REPEAT 32 

#define SLOW 33 

#define SHUFFLE 34 

#define DISPLAY 35 

#define PROGRAM_AP EX 3 6 
#define ANGLE 37 
#define LEARN 71 
#define PROGRAM_S P I TF I RE 
#define OPEN_CLOSE 13 
#define SETUP_SAMPO 12 
#define FourX_SPITFIRE 84 
#define OneX_SPITFIRE 81 

#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef support_h_ 

#define support_h_ 

#define PIC 1 



#define FLASHAREAS I ZE 63000 - FLASHAREAORIGIN 

#define FLASHAREAORIGIN 49152 

#ifdef PIC 

#define strcasecmp strcmp 
#define strnocasecmp stricmp 
#else 

#define strcasecmp _strcmp 
#define strnocasecmp _stricmp 
#endif 

#define DEBUG 2 



#define IR UNIV CHIP 1 



#define TEMPBUFFER_S I ZE 64 

#ifdef DEBUG 
#include <stdio.h> 
#endif 

#include <stdlib.h> 

#define FatalError( Str ) debug(Str); asm(" reset") 

#define Error ( Str ) debug (Str) 

#define ErrorMsgC (Str) debug((Str)) 

#define FatalMsgC (Str) FatalError ( (Str) ) 

#define FALSE 0 

#define TRUE 1 

#define NODE ERROR 0x4004 



typedef 


long 






DWORD; 


typedef 


unsigned 


long 




UDWORD; 


typedef 


char- 




BOOL; 




typedef 


unsigned 


char 


BYTE ; 




typedef 


short 






WORD; 


typedef 


unsigned 


short 




UWORD; 


typedef 


int 




INT; 




typedef 


unsigned 


int 


UINT; 





#ifdef DEBUG 

#define debugPutstr (x) puts(x); 

#define debug(x) printf x; printf ( "\r\n" ) ; 

#if (DEBUG >= 2) 
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#define debugPutstrHi (x) puts(x); 

#define debugHi (x) printf x; printf ( "\r\n") ; 

#else 

#def ine debugPutstrHi (x) 
#define debugHi (x) 

#endif 

#else 

tfdefine debug (x) 
#define debugHi (x) 
#define debugPutstr (x) 
#define debugPutstrHi (x) 

#endif 



void longToAscii (unsigned long input, char *str) ; 



#define DIRECTORY "c : \\smarttoy\\ " 
#define LOGFILE " logs\\f sdClog . txt " 



#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

# include " support. h" 



#include <stdarg.h> 
#include <time.h> 
#ifdef DEBUG 
#include <stdio.h> 
#endif 

#ifndef PIC 



void logMessage (const char *format, . ..) 

{ 

FILE *OUtp; 
char temp [9] ; 
va_list args; 

if( (outp = f open (DIRECTORY LOGFILE, "at")) != NULL ) 
{ 

va_s tart (args, format); 

_strdate (temp) ; 

fprintf (outp, "%s temp); 

_strtime (temp) ; 

fprintf (outp, "%s ", temp) ; 

vfprintf (outp, format, args); 
fputs( "\n" , outp) ; 
f close ( outp ) ; 
va_end (args) ; 

} 

> 

#endif 



void longToAscii (unsigned long input, char *str) 
{ 

char digit, count=0, dest=0; 
char buffer [12] ; 

for (digit=0; digit < 12; digit++) { 

buffer [digit] = (char) ((input % 10) + '0'); 
input = input / 10; 
count ++ ; 

if (input == 0) break; 

} 

while (count-- > 0) { 
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str[dest++] = buffer [count] ; 

} 

str[dest] = 0; 

} 

#ifndef PIC 

void DelayMs (short ms) 

{ 
} 

#endif 
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Type=Exe 

Reference=*\G{ 00020430-0000- 0000-COOO- 000000000046} #2 .0#0#. . A. .\ . . \ . . \WINDOWS\System32\Stdole: 
Ref erence=*\G{F5078F18-C551-llD3-89B9-0000F81FE221 }#3 . 0#0# . . \ . . \ . . \ . . \WINDOWS\System32\msxml3 
Ref erence=*\G{420B2830-E718-HCF-893D-00A0C9054228 }#1 . 0#0# . . \ . . \ . . \ . . \ WINDOWS \System3 2 \scrrun 
Class=FSDCompileScript ; FSDCompileScript . els 
Module= FastS impleDocument ; FastSimpleDocument . bas 
Form=Forml . f rm 
Startups "Forml" 

ExeName 32=" Comp i 1 e I rCode s.exe" 

Command32=" " 

Name = " Comp i 1 e I r Code s " 

HelpContextID="0" 

Compat ibleMode= " 0 " 

MajorVer=l 

MinorVer=0 

RevisionVer=0 

AutoIncrementVer=0 

ServerSupportFiles=0 

VersionCompanyName= "Systemsl " 

Comp i 1 a t i onTyp e = 0 

Opt imi zat ionType= 0 

Favor Pent iumPro ( tm) =0 

CodeViewDebuglnf o=0 

NoAliasing=0 

BoundsCheck=0 

Overf lowCheck=0 

FlPointCheck=0 

FDIVCheck=0 

UnroundedFP=0 

StartMode=0 

Unattended=0 

Retained=0 

ThreadPerObj ect=0 

MaxNumberOf Threads = 1 

[MS Transaction Server] 
AutoRef resh=l 



PushPlay --An Xml Document emulator\interpreter for microprocessors 
Copyright (C) 2002, Arthur Gravina. Confidential. 
Arthur Gravina <art@agravina . com> 



VERSION 1.0 CLASS 
BEGIN 

MultiUse = -1 

Persistable = 0 

DataBindingBehavior = 0 

DataSourceBehavior = 0 

MTSTransactionMode = 0 
END 

Attribute VB_Name = "FSDCompileScript " 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB__PredeclaredId = False 
Attribute VB_Exposed = False 
Option Explicit 

Public Event info(sMsg As String) 

Private oXml As DOMDocument3 0 
Private indent As Integer 
Private colText As New Dictionary 

Private Sub saveNodeDynamic (nodeld As Integer, node As node_def) 
If nodeld < 0 Then 

MsgBox "saveNodeDynamic: trying to save a 11 
dynamicNodes (Abs (nodeld) - 2) = node 

Else 

nodes (nodeld) = node 
End If 
End Sub 

Private Sub setLocations { ) 
Dim offset As Integer 
Dim nodes ize As node_def 
Dim attrSize As attribute_def 
Dim root As Integer 
Dim temp As String 
Dim attr As Integer 

On Error GoTo errrtn 

header. nodeOf f set = Len (header) 

offset = header .nodeOff set 

header . numNodes = numNodes 

offset = offset + numNodes * Len (nodeSize) 

header. attributeOf f set = offset 

header .numAt tributes = numAttributes 

offset = offset + numAttributes * Len (attrSize) 

header . textAreaOff set = offset 

header . lenTextArea = nextTextLoc 

root = f sd_get Root Node ( ) 

attr = f sd_get Attr ibuteByName (root , "scriptType") 
If (attr <> -1) Then 

header . scriptType = CInt (fsd_getAttributeValue (attr) ) 

Else 

header . scriptType = 0 
End If 

attr = f sd_get Attr ibuteByName (root , " scriptld" ) 
If (attr <> -l) Then 

header. scriptld = CInt ( f sd_getAttributeValue (attr) ) 

Else 
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header . scriptld = 0 
End If 
Exit Sub 
errrtn: 

MsgBox "setLocations Error: " & Error 
End Sub 

Sub f sd_writeFile (filename As String) 
Dim i As Integer 
On Error Resume Next 

On Error Resume Next 

RaiseEvent info ( "Writing. . " & filename) 

Kill filename 

On Error GoTo err 

setLocations 

Open filename For Binary As #1 
Put #1, 1, header 

Put #1, , nodes 

Put #1, , attributes 

ReDim Preserve textBuf f er (nextTextLoc - 1) 
Put #1, , textBuf fer 

err: 

Close #1 
End Sub 



Function f sd_loadScript (sName As String, errors As String) As Boolean 
Dim ret As Boolean 
Dim root 

Dim buttonlist As IXMLDOMNodeList 

Dim commandlist As IXMLDOMNodeList 

Dim buttonNode As IXMLDOMNode 

Dim commandNode As IXMLDOMNode 

Dim sCmdName As String 

Dim iCmd As Integer 

Dim i As Integer, j As Integer 

Set oXml = Nothing 

Set oXml = New D0MDocument30 

oXml.async = False 

ret = oXml . Load ( sName ) 

If oXml .parseError . errorCode <> 0 Then 
With oXml .parseError 

errors = "document Parse Error:" & vbCrLf & 
"Code: " & .errorCode & vbCrLf & 
"Line: " & .Line & vbCrLf & _ 
"lPos: " & .linepos & vbCrLf & _ 
"Reason: 11 & .reason & vbCrLf & 
"Src: " & .srcText & vbCrLf & _ 
"fPos: " & .filepos 

End With 

f sd_loadScript = False 
Set oXml = Nothing 
Exit Function 
End If 

f sd_loadScript = True 
End Function 
Public Sub WalkTreeO 

indent = 0 

treeWalk oXml 
End Sub 



Private Function attributeWalk (node As IXMLDOMNode) 
Dim i As Integer 
Dim ostr As String 
Dim attrib As IXMLDOMAt tribute 

For Each attrib In node . attributes 
For i = 1 To indent 
ostr = ostr & " 11 
Next 

ostr = ostr & " | --" 

ostr = ostr & attrib. nodeTypeString 

ostr = ostr & » : » 

ostr = ostr & attrib. name 

ostr = ostr & »--" 

ostr = ostr & attrib. nodeValue 

RaiseEvent info (ostr) 

ostr a »'» 

Next 
End Function 

Private Function treeWalk (node As IXMLDOMNode) 
Dim nodeName As String 
Dim root As IXMLDOMNode 
Dim child As IXMLDOMNode 
Dim i As Integer 
Dim ostr As String 

indent = indent + 2 

For Each child In node . childNodes 
For i = 1 To indent 
ostr = ostr & " " 
Next 

ostr = ostr & " | --" 

ostr = ostr & (child. nodeTypeString) 
ostr = ostr & 

If chi Id. node Type < 3 Then 

ostr = ostr & child. nodeName 

RaiseEvent info (ostr) 

ostr = «•" 
End If 

If (child. nodeType = 1) Then 

If (child. attributes . length > 0) Then 
indent = indent + 2 
attributeWalk child 
indent = indent - 2 
End If 
End If 

If (child. hasChildNodes) Then 

treeWalk child 
Else 

ostr = ostr & child. Text 
RaiseEvent info (ostr) 
ostr = 
End If 
Next 

indent = indent - 2 
End Function 

Private Sub compileAttributeWalk (node As IXMLDOMNode, parentNodeld As Integer) 
Dim i As Integer 
Dim ostr As String 
Dim attrib As IXMLDOMAt tribute 
Dim firstTime As Boolean 
Dim prevAttributeNode As Integer 
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Dim attributeNode As Integer 

Dim localNode As node_def 

Dim localAttribute As attribute_def 

firstTime = True 
prevAttributeNode = -1 

For Each attrib In node . attributes 

attributeNode = addAttribute (attrib, parentNodeld) 
If prevAttributeNode <> -1 Then 

localAttribute = fetchAt tribute (prevAttributeNode) 

localAttribute .nextAttribute = attributeNode 

saveAttribute prevAttributeNode, localAttribute 
End If 

If parentNodeld <> -1 And firstTime = True Then 

localNode = fetchNode (parentNodeld) 

localNode . firstAttribute = attributeNode 

saveNodeDynamic parentNodeld, localNode 
End If 

prevAttributeNode = attributeNode 

RaiseEvent info(" AddAttribute: " & attrib. nodeName & "=" & attrib . node Value) 
firstTime = False 

Next 
End Sub 

Private Sub compileWalk (node As IXMLDOMNode, parentNodeld As Integer) 
Dim root As IXMLDOMNode 
Dim child As IXMLDOMNode 
Dim i As Integer 
Dim ostr As String 
Dim nodeld As Integer 
Dim prevNodeld As Integer 
Dim firstTime As Boolean 
Dim localNode As node_def 
i 

prevNodeld = -1 
firstTime = True 

For Each child In node . childNodes 

nodeld = addNode (child, parentNodeld) 

RaiseEvent info ("Add Node: " & child .nodeName & "(" & nodeld & ")") 
If prevNodeld <> -1 Then 

localNode = fetchNode (prevNodeld) 

localNode.nextNode = nodeld 

saveNodeDynamic prevNodeld, localNode 
End If 

prevNodeld = nodeld 

If parentNodeld <> -1 And firstTime = True Then 

localNode = fetchNode (parentNodeld) 

localNode . firstChild = nodeld 

saveNodeDynamic parentNodeld, localNode 
End If 

firstTime = False 



If (child. node Type = 1) Then 

If (child. attributes. length > 0) Then 
compileAttributeWalk child, nodeld 

End If 
End If 

If (child. hasChildNodes) Then 

compileWalk child, nodeld 
End If 
Next 
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End Sub 

Sub f sd_Compile (inFileName As String) 
Dim totSize As Integer 
Dim nodes ize As node_def 
Dim attrSize As attribute_def 

f sd__Initialize 

col Text .CompareMode = BinaryCompare 
colText . removeAll 
ReDim textBuffer (10000) 
compileWalk oXml, -1 
totSize = nextTextLoc 



totSize = totSize + (Len (nodeSize) * numNodes) 
totSize = totSize + (Len (attrSize) * numAt tributes) 

RaiseEvent inf o ( M Text=" & nextTextLoc & " , Nodes=" & Len (nodeSize) * numNodes & _ 

attributes^" & Len (attrSize) * numAttributes & », Total=" & totSize) 
f sd_writeFile inFileName 
End Sub 

Private Function addNode(node As IXMLDOMNode , parentNodeld As Integer) As Integer 
Dim cNode As node_def 
Dim sName As String 
Dim nodeld As Integer 

node Id = numNodes 

ReDim Preserve nodes (numNodes) 

numNodes = numNodes + 1 

cNode . typeNode = node . nodeType 

cNode . parentNode = parentNodeld 

cNode . nextNode = - l 

cNode . f irstAttribute = -1 

cNode.f irstChild = -1 

sName = node . nodeName 

cNode . locName = addCompiledText ( sName ) 
cNode . lenName = CByte ( Len ( sName ) ) 
nodes (nodeld) = cNode 
addNode = nodeld 
End Function 

Private Function addAt tribute (at trNode As IXMLDOMAt tribute, parentNode As Integer) As Integer 
Dim attributeNode As attribute_def 
Dim sName As String, sValue As String 
Dim attrld As Integer 

attrld = numAttributes 

ReDim Preserve attributes (numAttributes) 
numAttributes = numAttributes + 1 

attributeNode .parentNode = parentNode 
attributeNode .nextAttribute = -1 
sName = at trNode .name 
sValue = at trNode .node Value 

attributeNode . locName = addCompiledText (sName) 
attributeNode . lenName = CByte (Len (sName) ) 
attributeNode. locValue = addCompiledText ( sValue) 
attributeNode . lenValue = CByte (Len (sValue) ) 

attributes (attrld) = attributeNode 
addAttribute = attrld 

End Function 

Sub interpretWalk(node As Integer) 
Dim i As Integer 
Dim childCount As Integer 
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Dim nodeld As Integer 

childCount = f sd_getChildCount (node) 
For i = 0 To childCount - 1 

nodeld = f sd_getNthNode (node, i) 

RaiseEvent info ("Add Node: " & f sd_getNodeName (nodeld) & " (" & nodeld & " )") 

If (f sd_hasAt tributes (nodeld) ) Then 

interpretAttributeWalk nodeld 
End If 

If (f sd_has Chi ldNodes (nodeld) = True) Then 

interpretWalk nodeld 
End If 
Next 

End Sub 

Sub interpretAttributeWalk (node As Integer) 
Dim i As Integer 
Dim attributeCount As Integer 
Dim nodeld As Integer 

attributeCount = fsd_get AttributeCount (node) 

For i = 0 To attributeCount - 1 

nodeld = fsd_getNthAt tribute (node, i) 

RaiseEvent info(" AddAttribute : " & f sd_get At tributeName (nodeld) & & f sd_getAttribi 
Next 

End Sub 



Private Function f indText (sText As String) As Integer 
On Error GoTo not found 
If ( colText. Exists (sText) ) Then 
f indText = colText . Item ( sText ) 

Else 

f indText = -1 
End If 

Exit Function 
not found: 

f indText = -1 

End Function 



Private Function addText ( sText As String) As Integer 
Dim slen As Integer 
Dim loc As Integer 
Dim bt As Byte 
Dim ba() As Byte 
Dim i As Integer 

On Error GoTo errrtn 

slen = Len(sText) 
If slen = 0 Then 

addText = -l 

Exit Function 
End If 

loc = nextTextLoc 

If (loc + slen +2) >= UBound(textBuf f er) Then 



ReDim Preserve textBuf f er (UBound (textBuf f er) + 1024) 
End If 

ba = StringToSingleBytes (sText) 



For i = 0 To slen - 1 

textBuf f er (next Text Loc) = ba(i) 
nextTextLoc = nextTextLoc + 1 

Next i 

textBuf fer (nextTextLoc) = 0 
nextTextLoc = nextTextLoc + 1 
addText = loc 
Exit Function 
errrtn: 

MsgBox "Error: " & err 

End Function 



Private Function addCompiledText (sText As String) As Integer 
Dim slen As Integer 
Dim loc As Integer 
Dim bt As Byte 
Dim ba ( ) As Byte 
Dim i As Integer 

. On Error GoTo errrtn 
slen = Len(sText) 
If slen = 0 Then 

addCompiledText = -1 
Exit Function 
End If 



loc = f indText (sText) 
If loc = -1 Then 

loc = addText ( sText ) 
col Text. Add sText, loc 
End If 
errrtn: 

addCompiledText = loc 
End Function 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina .com> 
* 

*/ 

# include " support. h" 
#include "rstack.h" 

#ifdef PIC 

near 

#endif 

static int sp=0; 

static RElementType val [RMAXDIM] ; 



void RPush (const RElementType f) 
{ 

if (sp<RMAXDIM) { 

val [sp++] =f ; 

} 

else { 

debugPutstrHi ( "RSTack Of low" ) ; 

} 

} 



RElementType RPop(void) 

{ 

if (sp>0) 

return val [--sp] ; 

else { 

return ISTKERROR; 

} 

} 



RElementType RPeek (const int Item) 

{ 

if (Item >= 0 ScSc Item < sp) 

return val [sp - Item - 1] ; 

else { 

return ISTKERROR; 

} 

} 



int RCount ( ) 

{ 

return sp; 



void EmptyRStack (void) 

{ 

sp = 0; 

} 



TestFsd . c . txt 8/16/04 
/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

# include "support .h" 
# include "squeue.h" 
#include 11 f sdtablelarge .h" 
#include 11 f sdinterpretertable . h" 
# include " eprom . h" 
# include "beep . h" 
#include " sendircommon . h" 
#include "sendirrules .h" 

#ifdef PIC 

#include "i2c_ccs.h" 
#include "tablereadwrite.h" 
#include "mainlinepic .h" 
#include "delay .h" 

#endif 

extern const unsigned char *f lashMemory; 



void testFsd (void) 

{ 



f sdint_RunInterpreter () ; 



} 



i 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#include " support. h" 
# include "eprom.h" 

ttifdef PIC 

#include "delay. h" 
#include <picl8.h> 
static void epromDe lay (void) 

{ 

DelayMs(lO) ,- 

} 

short epromReadWord ( short address) 

{ 

short data; 

EEPROM_READ (address) ; 
data = EEDATA << 8; 
address++ ; 

EE PR0M_READ ( addr e s s ) ; 
data = data | EEDATA ; 
return data; 

} 

void epromWriteWord( short address, short data) 
{ 

EEPROM_WRITE (address, data » 8) ; 

epromDe lay ( ) ; 

address++; 

EEPROM_WRITE (address, data & OxFF) ; 
epromDe lay ( ) ; 

} 

#else 

#include <io.h> 
#include <fcntl.h> 
#include <stdio.h> 
#include <sys/stat.h> 

#define EPROM_FILE "c : \ \ smart toy\\eprom. dat" 



short epromReadWord ( short address) 
{ 

int fh; 
int ret ; 
short data; 

fh = _open(EPROM_FILE, _0_RDONLY | _0_BINARY | _0__RANDOM) ; 
if (fh == -1) { 
return -1; 

} 



ret = _lseek(fh, (long) address, SEEK_SET) ; 
if (ret != address) { 
return -1; 

} 
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ret = _read( fh, &data, sizeof( data )); 
if (ret == sizeof(data) ) { 
return data; 

} 

else { 

return -1; 

} 

} 



void epromWriteWord( short address, short data) 
{ 

int fh; 
int ret; 

fh = _open(EPROM_FILE, _0_RDWR | _0_B I NARY | _0_CREAT | _0_RANDOM, JS_IWRITE ); 
if (fh == -1) { 
return ; 

} 



ret = _lseek(fh, (long) address, SEEK_SET) ; 
if (ret != address) { 
return; 

} 

ret = _write( fh, &data, sizeof ( data )); 
_close (f h) ; 

} 

#endif 



short epromValid (void) { 
short marker; 



marker = epromReadWord(O) ; 
if (marker == NODE_ERROR) { 
return TRUE ; 

} 

else { 

return FALSE; 

} 



void epromlnitializeScript (short scriptNumber) 

{ 

struct eprom_sc riptide f script; 

if (scriptNumber ==0) { 

epromlnitializeControl () ; 

} 

script. type = 0; 
script .id = 0 ; 
script . location = 0; 
script. len = 0; 

epromWriteScriptNumber (scriptNumber, &script) ; 



void epromlnitializeControl (void) 
{ 

epromWriteWord(EPROM_MARKER, NODE_ERROR) ; 
epromWriteWord(EPROM_IR_SCRIPTID, -1) ; 
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} 

void epromlnitialize (short blnit) 

{ 

short i; 

if ( !epromValid() || blnit == TRUE) { 
if (blnit == FALSE) { 

debugPutstr ( "epromlnvalid epromlnit") ; 

} 

for (i=0; i < EPROM_NUM_SCRIPTS; i++) { 
epromlnitializeScript (i) ; 

} 

} 



void epromGetScriptNumber (short scriptNumber, struct eprom_script__def * script) 

{ 

short address; 

if ( !epromValid() ) { 

debugPutstr ( "epromlnvalid getScriptNumber" ) ; 

} 

if ( !epromValid() || scriptNumber >= EPROM_NUM_SCRIPTS || scriptNumber < 0) { 
script ->type = -1; 
return; 

} 

address = (scriptNumber * sizeof (struct eprom_script_def ) ) + sizeof ( struct eprom_cont 

script->type = epromReadWord ( (short) (EPROM_SCRIPT_TYPE + address)); 

script->id = epromReadWord (( short ) (EPROM_SCRIPT_ID + address)); 

script ->locat ion = epromReadWord ( (short ) (EPROM_SCRIPT_LOCATI ON + address)); 

script->len = epromReadWord ( (short) (EPROM_SCRIPT_LEN + address)); 

} 

short epromGetScript (short scriptType, short scriptld # struct eprom script def *script) 

{ " 

short i; 

for (i = 0; i < EPROM_NUM_SCRIPTS; i++) { 
epromGetScriptNumber (i, script); 
if (script->type == scriptType) { 

if (script->id == -1 | | script->id == script->id) { 
return i; 

} 

} 

} 

script ->type = -1; 
return -1; 



void epromWriteScriptNumber (short scriptNumber, struct eprom script def *script) 

{ " 

short address; 

if ( !epromValid() || scriptNumber >= EPROM_NUM_SCRIPTS || scriptNumber < 0) { 
debugPutstr ( "invalid epromWrite" ) ; 
return; 

} 

address = (scriptNumber * sizeof (struct eprom_script_def ) ) + sizeof (struct eprom_cont 
epromWriteWord( (short) (EPROM_SCRIPT__TYPE + address), script- >type) ; 
epromWriteWord( (short) (EPROM_SCRIPT_ID + address), script->id) ; 
epromWriteWord( (short) (EPROM_SCRIPT_LOCATION + address), script->location) ; 



epromWriteWord( (short) (E PROMTS CR I PT_LEN + address), script - >len) ; 



* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 



# include " support . h" 
#ifdef IR_RULES 

^include " f sdinterpretertable .h" 
#define irdataOffset of f setFlashMemory 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



RC5_CODE 
RC6_CODE 
RCMM 

SPACE_ENC 

REVERSE 

NO_HEAD_REP 

N0_F00T_REP 

CONST_LENGTH 

RAW_C0DES 

REPEAT_HEADER 

SHIFT ENC 



0x0001 
0x0002 

0x0008 



0x0004 

0x0010 
0x0020 
0x0040 



0x0080 
0x0100 
0x0200 

RC5 CODE 



SPECIAL TRANSMITTER 0x0400 



#define PULSE_BIT 0x1000000 

struct flaglist { 

const char *name; 
int flag; 

}; 



ttdefine IR CODE LENGTH 2 



struct ir_code_tag 

{ 

unsigned long data [IR_CODE_LENGTH] ; 
unsigned char bits [IR_CODE_LENGTH] ; 

}; 

typedef struct ir_code_tag ir_code; 



struct mytimeval { 

long tv_sec; 
long tv_usec; 

}; 

struct ir_ncode { 

char *name; 
ir_code code; 
int length; 

unsigned long *signals; 

}; 



struct ir_r emote 

{ 

char *name; 
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struct ir_ncode *codes; 
int bits; 

unsigned int flags ; 



unsigned int phead,shead; 
unsigned int pthree, sthree; 
unsigned int ptwo,stwo; 
unsigned int pone,sone; 
unsigned int pzero,szero; 
unsigned int plead; 
unsigned int ptrail; 
unsigned int pfoot,sfoot; 
unsigned int prepeat , srepeat ; 
int pre_data_bits; 
ir_code pre_data; 
int post_data_bits; 
ir_code post_data; 
unsigned int pre_p,pre_s; 
unsigned int post_p, post_s; 
unsigned long gap; 
unsigned long repeat_gap; 
int toggle_bit; 
unsigned int min_repeat; 
unsigned int freq; 
unsigned int duty_cycle; 



unsigned int repeat_state ; 

struct ir_ncode *last_code; 

unsigned int reps; 

struct mytimeval last_send; 

unsigned long remaining_gap; 
struct ir__remote *next; 

}; 



unsigned long s_strtoul (char *val, char **endptr, char base) ; 



void send_space (unsigned long length) ; 
void send_pulse (unsigned long length); 

void ir_send_data_long (unsigned long value, char bits) ; 
void ir_code_init (ir_code *code) ; 

void ir_initPointersFromRom( short address, short len) ; 

void ir_strtocode (char *val, char which, char numBits, ir_code *code) ; 
void ir_set_bit (ir_code *code, short bitnum, char data); 
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char ir_get_bit (ir_code *code, short bitnum) ; 

void ir_reverse (ir_code *inCode, ir_code *outCode) ; 

void ir_send_header (struct ir_remote *remote) ; 

void ir_LedOn (const unsigned short T) ; 
void ir_LedOff (const unsigned short T) ; 

void ir_sendcode (struct ir_remote *remote, char *button_name) ; 

void send (struct ir_ncode *data, struct ir_remote *remote, unsigned short reps); 

void sendRaw (unsigned long *raw, int cnt) ; 

void ir_initWords (unsigned char command); 

void ir__addWord(char flag, unsigned long word) ; 

void ir_sendWords (unsigned char command); 

void ir_endWords (unsigned char command) ; 

void ir_conf iglrCodes (void) ; 
void ir_conf igTest (void) ; 

void ir_conf iglrCodesRom (void) ; 

unsigned char ir_lookupBut ton (const char *buttonName) ; 

void ir__sendNumbersString (const char *sNum) ; 

Nodeld ir_findMacro (short butNumber, const char *butName) ; 
void ir_ruleslnit (void) ; 

#endif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2 002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

tfinclude "support .h" 
#ifdef IR UNIV CHIP 



tfinclude <string.h> 
#include <stdio.h> 
#include "f sdtablelarge .h" 
#include "f sdinterpretertable .h" 
#include "sendirunivchip. h" 
#include "beep.h" 

#ifndef PIC 
#include <conio.h> 
#endif 

static void sndByte (unsigned char c) ; 
#define Device DVD 0x6000 



ct flaglist allCommands [] 


= { 




"TITLE", 




TITLE} , 


"MENU", 


MENU} , 




" PLAY", 


PLAY}, 




"STOP", 


STOPDVD}, 


" PAUSE", 




PAUSE} , 


"STEP", 


STEP}, 




"PREVCHAPTER", 




PREVCHAPTER} , 


"NEXTCHAPTER", 




NEXTCHAPTER} , 


"SEARCH" , 




SEARCH} , 


"NAV_UP" , 




NAVJJP} , 


"NAV_DOWN" , 




NAV_DOWN} , 


"NAV_LEFT", 




NAV_LEFT} , 


"NAV_RIGHT", 




NAV_RIGHT} , 


"REWIND", 




REWIND} , 


"FORWARD", 




FORWARD} , 


"NUMJL ", 




NUM_1}, 


"NUM_2 ", 




NUM_2} , 


"NUM_3 " , 




NUM_3 } , 


"NUM_4 " , 




NUM 4} , 


"NUM_5 " , 




NUM_5} , 


"NUM_6 




NUM_6} , 


"NUM_7 " , 




NUM_7} , 


"NUM_8 ", 




NUM_8} , 


"NUM_9" , 




NUM_9} , 


"NUM_0 ", 




NUM 0}, 


"NUM_TEN_PLUS ", 




NUM TEN PLUS}, 



{"POWER", POWER}, 
{NULL, 0}, 

}; 

extern short irScriptBuf f er; 
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static short irmacros [MAXIRMACRO+1] ; 

static short DeviceNumber ; 

short devTicks; 



static void sndByte (unsigned char c) 
{ 

#ifdef PIC 

putch (c) ; 

#else 

_putch(c) ; 

#endif 
} 



void ir_initDevice (void) 

{ 

Nodeld nodeDevice; 
char buffer [4] ; 

f sd_switchRomBuf f er ( irScriptBuf f er) ; 
nodeDevice = f sd_get Root Node {) ; 
if (nodeDevice != NODE_ERROR) { 

fsd_getAt tribute (nodeDevice, "ticks", buffer, 4) ; 
devTicks = (short ) atoi (buff er) ; 

} 

else { 

devTicks = -1; 

} 

debugHi (( "devTicks %d node %d", devTicks, nodeDevice)); 

f sd_unswitchRomBuf f er ( ) ; 
return ; 



void ir_Initialize (void) 

{ 

struct eprom_sc ript_de f script; 
short scriptType, scriptld; 

devTicks = -1; 
scriptType = IRSCRIPT; 
if (epromValidO ) { 

scriptld = epromReadWord(EPROM__IR_SCRIPTID) ; 

} 

else { 

scriptld = -1; 

} 

if (scriptld != -1) { 

if (epromGet Script ( scriptType, scriptld, &script) == -1) { 
f sd__setScriptBuf fer ( scriptType, scriptld) ; 

} else { 

f sd_setScriptBuf f erNoLoad (fcscript ) ,- 

} 



ir_initDevice ( ) ; 



} 



if (devTicks == 0) devTicks = 



if (devTicks == -1) { 
errorBeep ( ) ; 

debugPutstrHi ( "No ir device") 



static unsigned char getDeviceType (char pos) 

{ 

short dt; 

dt = Device_DVD | DeviceNumber; 
return dt >> (8 * pos) ; 

} 

void ir_set DeviceNumber (short num) 

{ 

DeviceNumber = num; 

} 

static unsigned char checkStatus (void) 

{ 



return TRUE; 



unsigned char ir_sendWords (unsigned char code) 

{ 

unsigned char flag; 

debug ( ( "\nir_SendKey : %d" , code) ) ; 
flag = 0; 
sndByte ( 'U* ) 
sndByte ( 1 1 1 ) 
sndByte ( 'B» ) 
sndByte Cl') , 

sndByte (getDeviceType (0) ) ; 
sndByte (getDeviceType (1) ) ; 
sndByte (code) ; 
sndByte (flag) ; 

return (checkStatus () ) ; 



void ir_sendNumbersSt ring (const char *sNum) 

{ 

char sNumber; 



while ( (sNumber = *sNum++) > 0) { 

sNumber - = 1 0 ' ; 
switch (sNumber) { 
case 0: 

ir_sendWords (NUM_0) ; 
break; 

case 1: 

ir_sendWords(NUM_l) ; 

break; 

case 2 : 

ir_sendWords (NUM_2) ; 

break; 

case 3 : 

ir_sendWords (NUM_3) ; 

break; 

case 4 : 

ir_sendWords (NUM_4) ; 

break; 

case 5: 

ir_sendWords (NUM_5) ; 

break; 

case 6 : 

ir_sendWords (NUM_6) ; 

break ; 

case 7: 

ir_sendWords (NUM_7) ; 

break ; 

case 8: 

ir_sendWords (NUM_8) ; 

break; 

case 9 : 

ir_sendWords (NUM_9) ; 

break ; 

> 

#ifdef PIC 

#endif 
} 

} 



unsigned char ir_lookupBut ton (const char *buttonName) 

{ 

const struct flaglist *flaglptr; 
unsigned char command; 

command = 255; 

f laglptr=allCommands ; 

while ( f laglptr- >name ! =NULL) { 

if (strnocasecmp(f laglptr- >name, buttonName) 

command^ f laglptr- >f lag ; 

break ; 

} 

f laglptr++ ; 

} 

return command; 



Nodeld ir_findMacro (short butNumber, const char *butName) 

{ 

Nodeld butLoc; 
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f sd_switchRomBuf f er ( irScriptBuf f er) ; 

if (butNumber >= 0 && butNumber <= MAXIRMACRO) { 

if ( irmacros [butNumber] == NODE_ERROR) { 

butLoc = f sdint_f indButton (NODE_ROOT, "IrMacro", butName) ; 
irmacros [butNumber] = butLoc; 

} 

else { 

butLoc = irmacros [butNumber] ; 

} 

} 

if (butLoc != NODE_ERROR) { 

butLoc = f sdint_f ormBuf f erNode (butLoc) ; 

} 

f sd_unswitchRomBuf fer () ; 
return butLoc; 



#endif 
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/* 

* PushPlay --An Xml Document emul a tor \ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef f sdinterpreter_h_ 

#define f sdinterpreter_h_ 

#include "f sdtablelarge .h" 
#include "istack.h" 
#include "rstack.h" 
# include "squeue.h" 

# define MAX_COMMANDSIZE 16 
#define NUMRETURNNODES 8 



void f sdint_Initialize (void) ; 
void f sdint_Run!nterpreter (void) ; 



void fsdint_init Commands (const char *Commands[3/ short (*procCall) (short, Nodeld, NodeId[], i 

short f sdint_lookupCommand( const char *command) ; 

void f sdint_ButtonsOf f Internal (void) ; 

void f sdint_ButtonsOnInternal (void) ; 

void f sdint_ButtonsOf f (void) ; 

void f sdint_ButtonsOn (void) ; 

void f sdint_executeBut ton (const char *sName) ; 

Nodeld f sdint_f indButton (Nodeld startNode, const char *sName, const char *sld) ; 

void fsd_getCommandParameter (const char *name, const Nodeld commandNode, char *buffer, const i 

void f sdint_interpretButton (const Nodeld buttonNode) ; 

void f sdint_startlnterpreter () ; 

void fsdint_f etch (const char *name, char *buffer, const short len) ; 
void fsdint_store (const char *name, const char ♦valued- 
void fsdint_increment (const char *name, const short minValue, const short maxValue) ; 

void f sdint__append (const char *name, const char *value) ; 
void f sdint_delay (long seconds, long milliseconds); 
void f sdint_hardDe lay (long seconds, long milliseconds); 
long GetTicks (void) ; 

Nodeld f sdint_formBuf f erNode (Nodeld inNode) ; 
Nodeld f sdint_getBuf f erNode (Nodeld inNode); 
void f sdint_Restart (void) ; 
void f sdint__Reset (void) ; 
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ttendif 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

#ifndef config_h__ 

#define config_h_ 



#define target_clock PIC_CLK 

#define timer_pre scale 1 

#define output_direction 0 

#define input_direction 1 

#define pwm_pin_direction TRISC2 



ttdefine PBthres 10 



#define MICROCHIP8720 1 
#ifdef LABX1 

#define PIC_CLK 10000000 
#define TEN_MS 65536-25000+0+2 
#define BLINK_ALIVE_LED RD0 
#define keypad_j)ort PORTB 
#define keypad_tris TRISB 
#define numButtons 16 
#define numRows 4 
#define numCols 2 
#endif 

#ifdef ARTBOARD 

#define PIC_CLK 10000000 

#define TEN_MS 65536-25000+0+2 

#define BLINK_ALIVE_LED RA2 

# define keypad_port PORTF 

#define keypad_tris TRISF 

#define numButtons 16 

#define numRows 4 

#define numCols 4 

#endif 

#ifdef MICROCHIP8720 
tfdefine PIC_CLK 20000000 
#define TEN_MS 65536-50000+0+2 
#define BLINK_ALIVE_LED RD0 
#define BEEP_LED RD1 
#define keypad_port PORTF 
#define keypad_tris TRISF 
#define numButtons 16 
#define numRows 4 
#define numCols 4 
#endif 



#ifdef MICRODESIGNS 

#define TEN_MS 65536-25000+0+2 
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tfdefine BLINK_ALIVE_LED RA1 
#define numButtons 7 
#endif 



#endif 



* PushPlay --An Xml Document emulator\interpreter for microprocessors 

* Copyright (C) 2002, Arthur Gravina . Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#ifdef DEBUG 
#include "serial. h" 
#endif 
#include 
# include 



<picl8 .h> 
"conf ig.h" 
"mainlinepic .h" 

<string .h> 
"support .h" 

"squeue .h" 
"delay. h" 



"f sdtablelarge.h" 
"f sdinterpretertable .h" 



near char 



ALIVECNT; 



near char 
near long 



PBCOUNT; 
TICKS; 



near struct { 

unsigned ISC:1; 
unsigned ISA:1; 
unsigned PDONE : 1 
unsigned OLDPB : 1 
unsigned NEWPB : 1 
unsigned dummy: 3 

} PBSTATEbits [numButtons] ; 



#ifdef IR_RULES 

near unsigned short _duty_l; 

#endif 



const unsigned char *f lashMemory = (unsigned char *) FLASHAREAORIGIN; 



#ifdef LCD 

const char LCDstr[] = { 0x33 , 0x32 , 0x28 , 0x01 , 0x0c, 0x06 , 0x00 , 0x00 } ; 

const char StrtStr[] = {0x80, »P', »u' , 's', *h*, ' -P', 'B\ 

const char BYTE_1 [] = {0x80, 'B» , »Y' , 'T' , 'E' , ' = ' , 1 ' ,0}; 

const char Clearl [] = {0x80, ' ' , ' ' , • ■ , ' 1 , 1 » , ' ' , • • , ' ' , 0} ; 

const char Clear2 [] = {0xC0, ' ' , 1 • , 1 ' , 1 • , « ' , 1 » , ■ ■ , 1 • , 0} ; 
#endif 



Char TEMPBUFFER [TEMPBUFFER_SIZE] ; 



char TEMPBUFFER2 [64] ; 



#ifdef LCD 

void InitLCD (void) ; 

void DisplayC (const char *tempPtr) ; 

void DisplayV (char *tempPtr) ; 

void T40 (void) ; 

void ByteDisplay (void) ; 

void DisplayLine (char linenum) ; 

void DisplayErrorMessageV(char *str) ; 

void DisplayErrorMessageC (const char *str) ; 

void ClearScreen (void) ; 

#endif 

void Initial (void) ; 
void BlinkAlive (void) ; 
void testFsd(void) ; 

void main (void) 
{ 

Initial () ; 

debug ( ( "MainlinePic . c 22Sep03 " ) ) ; 
testFsdO ; 

} 



void interrupt InterruptHandlerHigh () 

{ 

unsigned char i, buttonState; 
#if defined LABX1 | | ARTBOARD | | MICROCHIP8720 
unsigned char col, row, key, allCol; 

#endif 

if (TMROIF) 

{ 

TMROIF = 0; 
TICKS += 10; 

if (TICKS < 0) TICKS = 0; 



#ifdef LABX1 



key = 0; 

for (row = 0; row < numRows; row++) { 
keypad_port = 0 ; 



keypad_tris = (1 << row) A Oxff; 
asm ( "nop" ) ; 
asm ( "nop" ) ; 

allCol = (keypad__port >> 4) & Oxf; 

if (allCol != 3) { 

key = allCol; 
key = key A Oxf; 
col = 0; 

for (i=0; i < numCols; i++) { 
col++; 

if (key & 1) break; 



key = key >> 1; 

} 

key = (row * numCols) + col; 
break; 



#if defined ARTBOARD | | MICROCHIP8720 
key = 0; 

for (row = 0; row < numRows; row++) { 

keypad_port = (1 << row) ; 
allCol = (keypad_port >> 4); 
if (allCol != 0) { 

key = allCol; 

col - 0; 

for (i=0; i < numCols; i++) { 
col++ ; 

if (key & 1) { 
break ; 

} 

key = key >> 1; 

} 

key = (row * numCols) + col; 
break ; 

} 

} 

#endif 

for (i=0; i < numButtons; i++) { 

#if defined LABX1 | | ARTBOARD | | MICROCHIP8720 
if ((key - 1) == i) { 
buttonState = 0; 

} 

else { 

buttonState = 1; 

} 

#endif 

#ifdef MICRODESIGNS 



if (i 




0) 










buttonState 




RD2; 


else 


if 


(i == 1) 










buttonState 




RC5; 


else 


if 


(i == 2) 










buttonState 


= 


RB2; 


else 


if 


(i == 3) 










buttonState 




RB3; 


else 


if 


(i == 4) 










buttonState 




RB4; 


else 


if 


(i == 5) 










buttonState 




RB5; 


else 


if 


(i == 6) 










buttonState 


= 


RD3; 



#endif 

PBSTATEbits [i] .NEWPB = buttonState; 

if (PBSTATEbits [i] .OLDPB) { 

if ( 'PBSTATEbits [i] .NEWPB) 
PBCOUNT = PBthres; 

} 



#endif 
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if ( ! PBSTATEbits [i] .NEWPB) { 
if OPBCOUNT) 

if (! PBSTATEbits [i] . PDONE ) { 

PBSTATEbits [i] .ISC = 1; 
PBSTATEbits [i] .PDONE = 1; 



} 

else 

PBSTATEbits [i] .PDONE = 0; 

if (! PBSTATEbits [i] . OLDPB) 

if (PBSTATEbits [i] .NEWPB) { 
if (PBCOUNT) 

PBSTATEbits [i] .ISA = 1; 
PBSTATEbits [i] .PDONE = 0; 
PBCOUNT = 0; 

} 

if (PBCOUNT) 

PBCOUNT- - ; 

if (PBSTATEbits [i] .NEWPB) 

PBSTATEbits [i] .OLDPB = 1; 

else 

PBSTATEbits [i] .OLDPB = 0; 



BLINK_ALIVE_LED = 0; 

if ( ! ( - -ALIVECNT) ) { 

ALIVECNT = 250; 

BLINK_ALIVE_LED = 1; 



WRITETIMERO ( TEN_MS ) 
} 



void Initial (void) 

{ 

char i; 

di ( ) ; 

PIE1=0; 

ftifdef ARTBOARD 

CMCON = 0x7; 
ADCON1 = ObOOOOllll; 
keypad__port = 0; 
keypad_tris = OxFO; 
TRISA = OblllOOOOO 
TRISC = OblOlOOOOO 
TRISE = ObOOOOOOOO 

#endif 
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#ifdef MICROCHIP8720 



CMCON = 0x7; 
ADCON1 = ObOOOOllll; 
keypad_port = 0 ; 
keypad_tris = OxFO; 

PORTC = 0; 
TRISCO = 0; 



PORTD = 0; 
TRISD = 0; 

#endif 



#ifdef MICRODESIGNS 

ADCON1 = OblOOOlllO 

PORTC = 0; 

TRISA = OblllOOOOl 

TRISB . = ObllllllOO 

TRISC = OblOlOOOOO 

TRISD = ObOOOOllll 

TRISE = ObOOOOOOOO 

PORTA = ObOOOlOOOO 



#endif 

#ifdef LABX1 

TRISD = 0 

#endif 



TOCON = 0; 

TMROIF = 0; 

TMROIE = 1; 

TMROIP = 1; 
PSA = 1; 

TMROON = 1; 

ALIVECNT = 250; 
TICKS = 0; 



#ifdef IR_RULES 

pwm_osc_init (40000, 50); 

#endif 



for (i=0; i < numButtons ; i++) { 
PBSTATEbits [i] .ISC = 0; 
PBSTATEbitS [i] .ISA = 0; 
PBSTATEbits [i] .PDONE = 0; 
PBSTATEbits [i] . OLDPB = 1; 
PBSTATEbitS [i] .NEWPB = 0; 



#ifdef LABX1 

RBPU = 0; 

#endif 
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#if defined MI CRODE SIGNS | | ARTBOARD | | MICROCHIP8720 
RBPU = 1; 

#endif 



#ifdef LCD 

InitLCDO ; 
DisplayC(StrtStr) ; 

#endif 

#ifdef DEBUG 

init_comms ( ) ; 

#endif 

. IPEN = 1; 
ei() ; 

} 



void BlinkAliveO 
{ 

RA4 = 1; 

if { ! ( - -ALIVECNT) ) 
ALIVE CNT 
RA4 = 0; 

} 

} 

#ifdef IR_RULES 
static void setDuty (unsigned char X) 
{ 

CCPR1L = (X >> 2) ; 

CCP1CON = (CCP1CON & OxCF) | ((X & 3) << 4); 

} 



{ 

= 250; 



void pwm_osc_init (unsigned long pwm_osc_f requency, unsigned short pwm_osc_duty cycle) 

{ ^ . 

unsigned short j>r2_l; 
double x; 

x = (double) PI C_CLK / (4 * timer_prescale * (double) pwm_osc_fr equency) ; 
_pr2_l = (short) (x + .5) - 1; 

_duty_l = (((_pr2_l+l) * 4) * pwm_osc_duty cycle) / 100; 
PR2 = _pr2_l - 1; 

CCP1C0N = OxOC; 
setDuty (0) ; 



if (timer_prescale == 1) 

T2CON = ( T2CON & 0xF8) | 0 
else if (timer_prescale ==4) 

T2CON = ( T2CON & 0xF8) | 1 
else if ( timer_prescale == 16) 

T2CON = ( T2CON & 0xF8) | 2 



pwm_pin_direction = output_direction; 



TMR20N = 1; 



void pwm_s top (void) 

{ 

setDuty(O) ; 



} 

void pwm_start (void) 

{ 



setDuty (_duty — 1 ) ; 

} 

#endif 
#ifdef LCD 



void InitLCDO 

{ 

char current Char; 
const char *tempPtr; 



DelayMs (100) ; 
REO = 0; 

tempPtr = LCDstr; 
while (*tempPtr) { 

currentChar = *tempPtr; 

RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 
DelayMs (10) ; 
currentChar <<= 4; 
RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 
DelayMs (10) ; 
tempPtr++ ; 

} 

} 



void T40 (void) 

{ 

unsigned char cCount = 7; 
while (cCount) 

cCount-- ; 

} 



void DisplayC (const char *tempPtr) 

{ 

char currentChar; 



REO = 0; 

while (*tempPtr) { 

currentChar = *tempPtr; 
RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 

currentChar <<= 4; 
RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 
T40() ; 
REO = 1; 
tempPtr++ ; 

} 

} 



void DisplayV (char *tempPtr) 

{ 

char currentChar; 
REO = 0; 

while (*tempPtr) { 

currentChar = *tempPtr; 
RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 

currentChar <<= 4; 
RE1 = 1; 

PORTD = currentChar; 
RE1 = 0; 
T40O ; 
REO = 1; 
tempPtr++ ; 

} 

} 

#endif 



void checkButtons (void) 
{ 

char i; 



di ( ) ; 

for (i=0; i < numButtons; i++) { 

if ( PBSTATEbits [i] .ISC == 1) { 

s t r cpy ( TEMPBUF FER , » Bu 1 1 on " ) 



1 ongToAsc i i ( i , &TEMPBUFFER [ 6 ] ) ; 



f sdint_executeButton (TEMPBUFFER) ; 
PBSTATEbitS [i] .ISC = 0; 

} 

} 

ei() ; 

} 

#ifdef LCD 
char COUNT; 
char TEMP; 
Char TEMPBYTE ; 



void ByteDisplay (void) 
{ 

Di splayC ( BYTE_1 ) ; 

COUNT = 8; 
while (COUNT) { 

TEMP = (TEMPBYTE & ObOOOOOOOl) ; 

TEMP |= 0x30; 

TEMPBUFFER [COUNT] = TEMP; 

TEMPBYTE = TEMPBYTE >> 1; 

COUNT-- ; 

} 

TEMPBUFFER [0] = OxcO ; 
TEMPBUFFER [9] = 0; 
DisplayV (TEMPBUFFER) ; 



void delay_ms (long t) 
{ 

long start = TICKS; 
while (1) { 

if (TICKS < start) break; 

if ((TICKS - start) > t) break; 

} 

} 



void ClearScreen(void) 

{ 

DisplayC (Clearl) ; 
DisplayC(Clear2) ; 

} 

void DisplayLine (char linenum) { 
if (linenum == 1) { 

TEMPBUFFER [ 0 ] = (char) 0x80; 

} else { 

TEMPBUFFER [ 0 ] = (char) OxcO; 

} 

DisplayV (TEMPBUFFER) ; 

} 

void DisplayErrorMessageV (char *str) 



char ch; 

char *p; 

short len; 

char linenum = 1; 

RA1 = 1; 

ClearScreen ( ) ; 

while (linenum < 3) { 

p = &TEMPBUFFER [ 1 ] ; 

len = 1; 

while (1) { 

ch = *str++; 

if (len ==9 | | ch == 0) break 

*p++ = Ch; 

len++; 

} 

*p = 0; 

if (linenum ==1) { 

DisplayLine (linenum) ; 
if (ch ! = 0) str--; 
linenum++ ; 

} 

else { 

DisplayLine (linenum) ; 
linenum++ ; 

} 

if (ch == 0) break; 

} 

Delays (5) ; 
RA1 = 0 ; 



void DisplayErrorMessageC (const char *str) 
{ 

char temp [TEMPBUFFER_SIZE] ; 
ClearScreen ( ) ; 

if (strlen(str) > TEMPBUFFER_SIZE - 1) { 

strncpy (temp, str, TEMPBUFFER_S I ZE -1) ; 
temp[TEMPBUFFER_SIZE - 1] = 0; 

} else { 

strcpyftemp, str) ; 

} 

DisplayErrorMessageV(temp) ; 

} 

#endif 
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The following is the scripting API currently implmented. 

The PushPlay basic command set 

++++++++++++++++++++++++++++++++++ 

PushPlay 

Defines a new script. Must be first element in a script. 
Parameters: 

" scriptType. 1 = Main Script, 2 = Infrared Driver Script, 3=Compiled Infrared data 

" scriptld. A unique id for this scriptType. 

Example : 

<PushPlay scriptType= "1" script Id=" 00001 "> 
</PushPlay 

++++++++++++++++++++++++++++++++++ 
Button 

Defines the commands that will be executed when this button is pressed. 
Parameters : 

" id. ButtonO, Buttonl. ButtonO is the first button, Buttonl is the second and so on. 

A unique id is "Startup". This is executed when the script is first started. 
" name. A descriptive name. 

Example : 

<Button id= "Startup" name= "Startup" > 
<Button id="Buttonl5" name= "Restart " 

++++++++++++++++++++++++++++++++++ 
Trick 

Define a macro. This is a collection of commands that will be executed multiple times. You Cc 
Parameters: 

" id. The name that will be used by TrickPlay to call this macro. 

Example : 

<Trick id="monkeyGraphic"> 

++++++++++++++++++++++++++++++++++ 
TrickPlay 

Call a Trick. Pass it any number of parameters. The commands within the macro will reference 1 
Parameters : 

" id. The name of the macro as defined by Trick. 

Example : 

<TrickPlay id="monkeyGraphic" > 

++++++++++++++++++++++++++++++++++ 
If 

A conditional command. Will execute the block of commands if the condition is true. 
Parameters : 

id. The name of a variable. May be preceded by an * @* for indirect addressing 
" oper. The operation to be tested. Operators are: eq, neq, gt, It. 

" value. The value to compare to the variable. 



Example: 

<If id="ElephantCounter" oper="eq" value=" 1"> 

++++++++++++++++++++++++++++++++++ 
Set 

Set a variable to a value. 

Parameters : 

id. The name of a variable. 
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" value. The value to compare to the variable. 

Example : 

<Set id="playstate" value= n O"/> 

++++++++++++++++++++++++++++++++++ 
Increment 

Will increment a variable with a range. When the maximum limit is reached will restart a minit 
Parameters : 

" id. The name of a variable. 

" min. The starting value when max is reached 

" max. The maximum value variable will be incremented to. 

Example : 

< Increment id="MonkeyCounter" min="0" max="2 M /> 

++++++++++++++++++++++++++++++++++ 
Append 

Append a string value to a variable 
Parameters : 

11 id. The name of a variable. 

" value. The string to append. 

Example : 

<Append id="scriptld" value="l" /> 

++++++++++++++++++++++++++++++++++ 
ButtonsOn 

Allow a new button press to interrupt the command currently being processed. 
Parameters: none 
Example : 

<ButtonsOn/> 

++++++++++++++++++++++++++++++++++ 
ButtonsOf f 

Don't allow a new button press to interrupt the command currently being processed. 
Parameters: none 
Example : 

<ButtonsOf f /> 

++++++++++++++++++++++++++++++++++ 
Sleep 

Delay for a time period. 
Parameters : 

" milliseconds. The number of milliseconds to delay. 

" seconds. The number of seconds to delay. 

Example : 

<Sleep seconds="3 "/> 
The following commands are specific to DVD devices. 



++++++++++++++++++++++++++++++++++ 
Menu 

Stops title playback and displays the top (or root) menu for the current title. 
Parameters : none 
Example : <Menu/ > 

++++++++++++++++++++++++++++++++++ 
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Title 

Stops title playback and displays the title menu. 
Parameters: none 
Example: <Title/> 

++++++++++++++++++++++++++++++++++ 
Resume 

Returns to playback mode from menu mode at the same title position as when the menu was invokt 
Parameters : none 
Exampl e : < Re sume / > 

++++++++++++++++++++++++++++++++++ 
Back 

Returns the display from a submenu to its parent menu. 
Parameters : none 
Example: <Back/> 



++++++++++++++++++++++++++++++++++ 
Play 

Causes the DVD to start playing, or resumes play of a paused item. 
Parameters : none 
Example: <Play /> 

++++++++++++++++++++++++++++++++++ 
Stop 

Stops the playing of the DVD. 
Parameters : none 
Example: <Stop /> 

++++++++++++++++++++++++++++++++++ 
Pause 

Pauses the playing of the chapter. 
Parameters : none 
Example: <Pause /> 

++++++++++++++++++++++++++++++++++ 
NextChapter 

Seeks and plays the next chapter. Will loop. 

Parameters : none 

Example: <Next Chapter /> 

++++++++++++++++++++++++++++++++++ 
PrevChapter 

Seeks and plays the previous chapter. Will loop. 

Parameters : none 

Example: <PrevChapter /> 



++++++++++++++++++++++++++++++++++ 
TitleSeek 

Seeks and plays the first chapter in the title. Title number is 1 to 99. 
Parameter: 

" Title. The title number to seek to 

Example : 

<TitleSeek title="3" /> 

++++++++++++++++++++++++++++++++++ 
ChapterSeek 

Seeks and plays the chapter in the current title. Chapter number is 1 to 999. 
Parameter: 

" chapter. The chapter number to seek to 

Example : 

<ChapterSeek chapter= M 3" /> 

++++++++++++++++++++++++++++++++++ 
TimeSeek 
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Seeks to a specific time on the DVD. Specify hour, minute, second. 
Parameter: 

" time. The hour, minute and second to seek to. 

Example : 

<TimeSeek time="000757"/> 

++++++++++++++++++++++++++++++++++ 

Fast Forward 

start fast forwarding 

Parameters : none 

Example: <FastForward /> 

++++++++++++++++++++++++++++++++++ 

FastReverse 

start fast reversing 

Parameters : none 

Example: <FastReverse /> 

++++++++++++++++++++++++++++++++++ 
PushButton 

Simulate a button press on a remote control device 
Parameters : 

" id. The name of the button. Is device dependent. 

Example: 

< PushButton id=" SEARCH" /> 

++++++++++++++++++++++++++++++++++ 
PushNumbers 

Simulate pressing the number buttons. 
Parameters : 

" value. The number string to send. 

Example : 

<PushNumbers value="24" /> 

++++++++++++++++++++++++++++++++++ 

The following is a complete script example. 

<!-- World Animals No Interupting --> 
<PushPlay scriptType= "1" script Id=" 00001 "> 

<!-- if 'playstate' is 0, then resume and set playstate to 1 --> 

<Trick id="checkPlaystate" > 

<!-- are we playing - - > 

<If id= "playstate" oper="eq" value="0"> 
<Resume/> 

<Set id= "playstate" value="l"/> 

</If> 

</Trick> 

<!-- All of the above is common to all Animals --> 

< ! - - MONKEY --> 

<!-- Monkey Graphic- -> 
<Trick id="monkeyGraphic"> 

<ChapterSeek chapter="7" /> 

<TimeSeek time="000716"/> 

<Sleep seconds="3"/> 

</Trick> 

<!-- Monkey live - - > 
<Trick id="monkeyLive"> 

<ChapterSeek chapter="7" /> 

<TimeSeek time="000757"/> 

<Sleep seconds="50"/> 

</Trick> 



<!-- M5 Monkey Puppet Sequence -- 
<Trick id= " monkey Puppet "> 

<ChapterSeek chapter="7" /> 

<TimeSeek time="000740 , 7 
<Sleep seconds="16"/> 

</Trick> 



<!-- FISH 
< ! Fish Live - - > 

<!-- Fish --> 

<Trick id="f ishGraphic" > 

<TimeSeek time="001055 n / 
<Sleep seconds="4"/> 

</Trick> 

<Trick id="f ishLive"> 

<TimeSeek time="001244 "/ 
<Sleep seconds="41"/> 

</Trick> 

<Trick id="f ishPuppet" > 

<TimeSeek time=" 001356"/ 
<Sleep seconds="26"/> 

</Trick> 

<!-- TROPICAL BIRD 

<!-- Tropical Bird Graphic --> 
<Trick id="tropicalBirdGraphic"> 
<TimeSeek time=" 000326"/ 
<Sleep seconds="3 "/> 

</Trick> 

<!-- TB3 Tropical Bird Live --> 
<Trick id="tropicalBirdLive"> 

<TimeSeek time=" 000552"/ 
<Sleep seconds="62"/> 

</Trick> 

<!-- TropicalBird Puppet --> 
<Trick id="tropicalBirdPuppet"> 

<TimeSeek time=" 000655"/ 
<Sleep seconds="20"/> 

</Trick> 

< ! - - SEA TURTLE 

<!-- SeaTurtle Graphic --> 
<Trick id="turtleGraphic"> 

<TimeSeek time= "001107"/ 
<Sleep seconds="3"/> 

</Trick> 

<!-- Sea Turtle Live --> 

<Trick id="turtleLive"> 

<TimeSeek time="001141"/: 
<Sleep seconds="30"/> 

</Trick> 

<!-- Sea Turtle Puppet --> 

<Trick id="turtlePuppet"> 

<TimeSeek time="001112 ,, /: 
<Sleep seconds="18"/> 

</Trick> 
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<!-- ELEPHANT 
<!-- Elephant Graphic --> 
<Trick id="elephantGraphic"> 

<TimeSeek time="001512"/> 

<Sleep seconds="3"/> 

</Trick> 

<Trick id= M elephantLive"> 

<TimeSeek time="001600"/> 
<Sleep seconds="61"/> 

</Trick> 

<Trick id="elephantPuppet"> 

<TimeSeek time="001518"/> 
<Sleep seconds="17"/> 

</Trick> 

<Button id= M Startup" name= "Startup "> 

<Set id="ElephantCounter" value="0"/> 
<Set id="SeaTurtleCounter" value="0"/> 
<Set id="TropicalBirdCounter" value="0"/> 
<Set id="MonkeyCounter" value="0"/> 
<Set id="FishCounter" value="0"/> 
<TitleSeek title="2" /> 
<Sleep seconds="l" /> 
<ChapterSeek chapter="4" /> 

</Button> 

Restart Game. This will clear everything, and startover --> 
<Button id="Buttonl5 n name= "Restart " > 
<Restart /> 

</Button> 

<!-- Reset Game. 1st time clear Gamescript and startover. --> 
<Button id="Buttonl4" name= "Reset " > 
<Reset /> 

</Button> 

<!-- Get Ir Script. --> 

<Button id="Buttonl3 " name="GetIrScript" > 
<GetIrScript /> 

</Button> 

<!-- Monkey Button - - > 

<Button id="ButtonO" name = "Monkey" > 

<!-- <ButtonsOf f /> --> 

<!-- incriment the counter pre-trickplay --> 
< Increment id="MonkeyCounter" min="0" max="2"/> 

<!-- first time - - > 

<If id="MonkeyCounter" oper="eq" value="0"> 
<TrickPlay id="monkeyGraphic" /> 

<Pause/> 

<Set id="playstate" value="0"/> 

</If> 

<!-- second time - - > 

<If id=" Monkey Counter" oper="eq" value="l"> 
<TrickPlay id= "monkeyLive" /> 
<Pause/> 

<Set id="playstate" value="0"/> 
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</if > 

< i - - third time - - > 

<If id="MonkeyCounter" oper="eq" value="2"> 
<TrickPlay id= "monkeyPuppet " /> 
<Pause/> 

<Set id="playstate" value="0'7> 

</If> 



<!-- <ButtonsOn/> - - > 

</Button> 

<!-- Fish Button - -> 
<Button id= n Buttonl" name="Fish"> 
<!-- <ButtonsOf f /> --> 

< Increment id="FishCounter" min="0 ,f max="2"/> 

<!-- first time - - > 

<If id="FishCounter" oper= n eq" value="0"> 
<TrickPlay id="f ishGraphic" /> 
<Pause/> 

<Set id="playstate" value= M 0"/> 

</lf> 

< ! - - second time > 

<If id="FishCounter" oper= n eq n value="l"> 

<TrickPlay id= "f ishLive" chapter="16" seconds= M 3 n /> 
<Pause/> 

<Set id="playstate" value= M 0"/> 

</If> 

<!-- third time - - > 

<If id= n FishCounter n oper="eq ! ' value="2 n > 
<TrickPlay id= "f ishPuppet " /> 
<Pause/> 

<Set id= ^ playstate' , value= M 0 M /> 

</If> 



< ! - - <ButtonsOn/> - - > 

</Button> 



<!-- TropicalBird Button --> 

<Button id= n Button2" name= "Tropical Bird"> 

<!-- <ButtonsOf f /> --> 

< Increment id= "TropicalBirdCounter" min="0" max="2 n /> 

<!-- first time - - > 

<If id= "TropicalBirdCounter" oper="eq" value="0"> 
<TrickPlay id= M tropicalBirdGraphic" /> 
<Pause/> 

<Set id="playstate" value="0 "/> 



</If > 



<!-- second time - - > 

<If id="TropicalBirdCounter" oper= !, eq n value= 
<TrickPlay id= "tropicalBirdLive" /> 
<Pause/> 

<Set id="playstate" value="0"/> 

</If> 

<!-- third time - - > 

<If id="TropicalBirdCounter" oper="eq" value= 
<TrickPlay id="tropicalBirdPuppet " / 
<Pause/> 

<Set id="playstate" value="0"/> 

</If> 



<!-- <ButtonsOn/> - - > 

</Button> 

<!-- SeaTurtle Button --> 
<Button id="Button3" name="Sea Turtle "> 
<!-- <ButtonsOf f /> --> 

< Increment id= "SeaTurtleCounter" min="0" max= 

<!-- first time - - > 

<If id=" SeaTurtleCounter" oper= n eq" value="0" 
<TrickPlay id= " turtleGraphic" /> 
<Pause/> 

<Set id="playstate n value="0 M /> 

</lf> 

<!-- second time no Guess for SeaTurtle ???? 
<If id= n SeaTurtleCounter" oper="eq" value="l" 

<TrickPlay id= " turtleLive" /> 

<Pause/> 

<Set id="playstate" value= n 0'7> 

</If> 

<!-- third time - - > 

<If id= "SeaTurtleCounter" oper="eq" value="2" 
<TrickPlay id= " turtlePuppet " /> 
<Pause/> 

<Set id="playstate" value="0"/> 

</If> 

<!-- <ButtonsOn/> - - > 

</Button> 

<!-- Elephant Button --> 

<Button id="Button4" name= "Elephant " > 

<!-- <ButtonsOf f/> --> 

<Increment id= "ElephantCounter" min="0" max=" 
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< ! - - first time --> 

<If id="ElephantCounter" oper="eq" value= n O"> 
<TrickPlay id="elephantGraphic" /> 
<Pause/> 

<Set id="playstate" value="0"/> 

</lf> 

<!-- second time - - > 

<If id="ElephantCounter" oper="eq n value="l"> 
<TrickPlay id="elephantLive" /> 
<Pause/> 

<Set id="playstate" value="0"/> 

</If> 

<!-- third time --> 

<If id="ElephantCounter" oper= n eq" value="2"> 
<TrickPlay id= M elephant Puppet " /> 
<Pause/> 

<Set id="playstate M value= n 0"/> 

</lf> 

<!-- <ButtonsOn/> - - > 

</Button> 
</PushPlay> 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

#ifndef rstack_h_ 

#define rstack_h_ 

#define RMAXDIM 30 
#define ISTKERROR -3333 
typedef short RElementType ; 



void RPush (const RElementType f ) ; 

RElementType RPop(void); 

RElementType RPeek{ const int Item) ; 

int RCount ( ) ; 

void EmptyRStack(void) ; 

#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina . Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef eprom_h_ 

# define eprom_h_ 

#include " support. h" 
#include <stddef.h> 

#define EPROM_NUM_SCRIPTS 3 

struct eprom_script_def { 
WORD type; 
WORD id; 
WORD location; 
WORD len; 

}; 

#define EPROM_SCRIPT_TYPE 
#define EPROM_SCRIPT_ID 
#define EPROM_SCRIPT_LOCATION 
#define EPROM_SCRIPT_LEN 

struct eprom_control_def { 
WORD marker; 
WORD irScriptld; 

}; 

#define EPROM__MARKER of fsetof ( struct eprom__control_def , marker) 

#define EPROM_IR_SCRIPTID of fsetof (struct eprom_control_def , irScriptld) 



short epromValid (void) ; 
void epromlnitializeScript (short scriptNumber) ; 
void epromlnitializeControl (void) ; 
void epromlnitialize (short blnit) ; 
void epromWriteWord( short address, short data) ; 
short epromReadWord ( short address) ; 

void epromGetScriptNumber (short scriptNumber, struct eprom_script_def *script) ; 

short epromGetScript (short scriptType, short scriptld, struct eprom_sc riptide f *script) ; 

void epromWriteScriptNumber (short scriptNumber, struct eprom_script_def *script) ; 



of fsetof (struct eprom_script_def , type) 

of fsetof (struct eprom_script_def , id) 
of fsetof (struct eprom_script_def , location) 
of fsetof (struct eprom_s c riptide f , len) 



#endif 
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The following files contain the compiler for PushPlay: CompilelrCodes . vbp; Compile I rCodes . vb\ 

These files are meant to be compiled under Visual Basic 6.0. 
The use interface is self explanatory. 

Navigate to the directory desired, where the PushPlay scripts are stored. 
Click on the Compile Button. 

All files will be compiled into PushPlay' s proprietary format. 
The file will have a ".fsd" appended to them. 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

# include " support. h" 
#ifdef IR_UNIV_CHIP 

void ir_Initialize (void) ; 

void ir_setDeviceNumber (short num) ; 

unsigned char ir_sendWords (unsigned char code); 

void ir_sendNumbersString (const char *sNum) ; 

unsigned char ir_lookupBut ton (const char *buttonName) ; 

Nodeld ir_findMacro (short butNumber, const char *butName) ; 



struct flaglist { 

const char *name; 
int flag; 

}; 



#define MAX I RCOMMAND 29 



#define TITLE 35 



#define MENU 33 

#define PLAY 24 

#define STOPDVD 25 

#define PAUSE 2 6 

#define STEP 0 

tfdefine PREVCHAPTER 31 

#define NEXTCHAPTER 30 



#define SEARCH 32 

#define NAVJJP 38 

#define NAV_D0WN 39 

#define NAV_LEFT 4 0 

#define NAV RIGHT 41 



#define REWIND 



27 



Page 2 of 2 





FORWARD 




9ft 


■ft Lit; J- xne 


NUM 1 




Q 

y 


fr Uc JL Xlic 


NUM 2 




1 0 


■ff H o f i np 

tf U.C J- Xiltr 


NUM 3 




1 i 
j. j. 




NUM 4 




1 9 


ftucj. J. i icr 


NUM 5 




X ,3 


TrUCL -L lie 


NUM 6 




1 4 


ft Lit: x xne 


NUM 7 




X J 


#def ine 


NUM~8 




16 


#def ine 


NUM_9 




17 


#def ine 


NUM_0 




18 


#def ine 


NUM TEN PLUS 


20 




#def ine 


POWER 




1 



#define MAXIRMACRO 3 

#define CHAPTERSEEK 0 
#define TITLESEEK 1 
#define TIMESEEK 2 

#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
*/ 

#include <picl8.h> 
#include "tablereadwrite . h n 

extern char TEMPBUFFER2 [] ; 

static void f sd_initiate_write (void) ; 

static void f sd_f lash_write (f ar unsigned char * source__addr, unsigned char length, far unsigned 
static unsigned char fsd_flash_read (unsigned long addr) ; 

static void f sd_initiate_write (void) 
{ 

WREN=1; 

CARRY = 0 ; i f (GIE) CARRY=1 ;GIE=0 ; 

DC=0 ; if (PEIE) DC=1 ; PEIE=0 ; 

EECON2=0x55; 

EECON2=0xAA; 

WR=1; 

asm("\tN0P") ; 
if (CARRY) GIE=1; 
if (DC)PEIE=1; 
WREN=0; 

} 

static void f sd_f lash_write (f ar unsigned char * source_addr, unsigned char length, far unsigned 

{ 

unsigned char index; 
unsigned char offset; 
#if defined(__18F242) || defined (_18F252 ) || defined (_18F442 ) || defined (_18F452 ) 
unsigned char savedl , saved2 , saved3 ; 

#endif 

of fset= (unsigned char) dest_addr fie 0x3F; 
dest_addr-=of f set ; 

while (length) 

{ 

for ( index=0 ,- index<64 ; index++ ) 

{ 

if ( (index>=off set) && (length) ) 
{ 

TEMPBUFFER2 [index] =* ( source_addr++) ; 
length- - ; 

} 

else 

TEMPBUFFER2 [index] =* (dest_addr+ index) ; 

} 



TBLPTR=dest__addr; 

EECONl=0x94; 

f sd_initiate_write ( ) ; 



for ( index=0 ; index<64 ; index++ ) 
{ 

TABLAT=TEMPBUFFER2 [index] ; 
#if defined (_18F242) || defined (_18F252 ) || defined (_18F442) || def ined(_18F452) 
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#endif 



savedl=INTCON; INTCON=0; 
saved2=INTCON2; INTCON2=0; 
saved3=INTCON3; INTCON3=0; 
TEMPBUFFER2 [0] =PIE1 ; PIE1=0 ; 
offset=PIE2; PIE2=0; 

if (index==0) 

asm ( " \tTBLWT* " ) ; 

else 

asm ( " \tTBLWT+* " ) ; 

#if defined(_18F242) || defined (_18F252 ) || defined (_18F442 ) || defined (__18F452 ) 

INTCON=savedl; 
INTCON2=saved2; 
INTCON3=saved3; 
PIE1=TEMPBUFFER2 [0] ; 
PIE2=of f set; 



#endif 



if ( (index & 7) ==7) 
{ 

f sd_initiate_write ( ) ; 

} 



dest__addr+=64 ; 
of f set=0 ; 



} 



static unsigned char f sd_f lash_read (unsigned long addr) 
{ 

TBLPTRL= ( (addr) &0xFF) ; 
TBLPTRH= ( ( (addr) >>8) &0xFF) ; 
TBLPTRU= ( ( (addr) >>8) »8) ; 
a sm ( 11 \ tTBLRD* + " ) ; 
return TABLAT; 



void TableWrite (unsigned char *dest, unsigned char *source, unsigned short Count) 

{ 

unsigned short index=0; 
unsigned char thisCount; 



while (index < Count) { 

if ((index + 64) <= Count) { 
thisCount = 64; 
index += 64 ; 

} 

else { 

thisCount = Count - index; 
index += Count - index ; 

} 

f sd_f lash_write (source, thisCount, dest ); 
source += thisCount; 
dest += thisCount; 




void TableRead (unsigned char *dest, unsigned char *source, unsigned short Count) 



unsigned char data; 



while (Count > 0) { 

data = f sd_f lash_read( (unsigned long) source++) ; 
*dest++ = data; 
Count - - ; 

} 



The following files contain the compiler for PushPlay: Compi 1 el r Codes . vbp; CompilelrCodes 

These files are meant to be compiled under Visual Basic 6.0. 
The use interface is self explanatory. 

Navigate to the directory desired, where the PushPlay scripts are stored. 
Click on the Compile Button. 

All files will be compiled into PushPlay 1 s proprietary format. 
The file will have a " . f sd" appended to them. 



/* 

* PushPlay — An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
★ 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

ttinclude "support . h" 
#ifdef IR_UNIV_CHIP 

void ir_Initialize (void) ; 

void ir_setDeviceNumber (short num) ; 

unsigned char ir_sendWords (unsigned char code); 

void ir_sendNumbersString (const char *sNum) ; 

unsigned char ir_lookupButton ( const char *buttonName) ; 

Nodeld ir findMacro (short butNumber, const char *butName) ; 



struct flaglist { 

const char *name; 
int flag; 

}; 



#define MAX I R COMMAND 29 



#define TITLE 35 

#define MENU 33 

#define PLAY 24 

#define STOPDVD 25 

#define PAUSE 2 6 

#define STEP 0 

#define PREVCHAPTER 31 

#define NEXTCHAPTER 30 

#define SEARCH 32 

#define NAVJJP 38 

#define NAV DOWN 39 



#define NAV__LE FT 
#define NAV RIGHT 



40 
41 



TT /*A A 'f- *1 Vl /~\ 

tf ae nne 


DUTiTTMn 




97 


TT r T <rs 

ttueiine 


U UKWAKJJ 




9 fi 


it c*J o *f i no 


KTTTM 1 
IN Ui v l X 




Q 


#Hof 1 no 
tfUC J. _L Iltr 


KTTTM 9 
IN Ul v l Z 




i n 




KTTTM *3 
IN Ul v l O 




1 1 




KTTTM A 
IN Uri *i 




1 9 
x z 


#define 


NUM~5 




13 


#define 


NUM_6 




14 


#def ine 


NUM_7 




15 


#def ine 


NUM_8 




16 


#define 


NUM_9 




17 


#def ine 


NUM_0 




18 


#def ine 


NUM_TEN_PLUS 


20 




#define 


POWER 




1 



#define MAXIRMACRO 3 

ttdefine CHAPTERSEEK 0 
#define TITLESEEK 1 
#define TIMESEEK 2 

#endif 



/* 

* PushPlay — An Xml Document emulator\interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
★ 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

#include <picl8.h> 
#include "tablereadwrite . h" 

extern char TEMPBUFFER2 [ ] ; 

static void f sd_initiate__write (void) ; 

static void f sd_f lash_write ( f ar unsigned char * source_addr / unsigned char length, far unsig 
static unsigned char fsd_flash_read (unsigned long addr) ; 

static void f sd_initiate_write (void) 
{ 

WREN=1; 

CARR Y= 0 ; i f ( GI E ) CARRY = 1 ; GI E= 0 ; 

DC=0;if (PEIE)DC=1; PEIE=0; 

EECON2=0x55; 

EECON2=0xAA; 

WR=1; 

asm("\tNOP") ; 
if (CARRY )GIE=1; 
if (DC) PEIE=1; 
WREN=0; 

} 

static void f sd_f lash_write ( f ar unsigned char * source_addr, unsigned char length, far unsig 
{ 

unsigned char index; 
unsigned char offset; 
#if defined (_18F242) || defined (_18F252 ) || defined (__18F442 ) || defined (_18F452 ) 
unsigned char savedl, saved2, saved3; 

#endif 

of fset= (unsigned char ) dest_addr & 0x3F; 
dest_addr-=of f set; 

while (length) 
{ 

for (index=0; index<64; index++) 
{ 

if ( (index>=of f set) && (length) ) 
{ 

TEMPBUFFER2 [index] =* ( source_addr++) ; 
length — ; 

} 

else 

TEMPBUFFER2 [index] =* (dest_addr+index) ; 

} 



TBLPTR=dest_addr; 
EECONl=0x94; 
fsd_initiate write (); 



f or (index=0; index<64; index++) 
{ 

TABLAT=TEMPBUFFER2 [index] ; 
#if defined ( 18F242) || defined( 18F252) || defined( 18F442) || defined( 18F452) 



savedl=INTCON; INTCON=0; 
saved2=INTCON2; INTCON2=0; 
saved3=INTCON3; INTCON3=0; 
TEMPBUFFER2[0]=PIE1; PIE1=0; 
of fset=PIE2; PIE2=0; 

#endif 

if (index==0 ) 

asm("\tTBLWT*") ; 

else 

asm( l, \tTBLWT+* M ) ; 

#if defined(_18F242) || defined (_18F252 ) || defined (_18F442 ) || defined (_18F452 ) 

INTCON=savedl; 
INTCON2=saved2; 
INTCON3=saved3; 
PIE1=TEMPBUFFER2 [0] ; 
PIE2=of fset; 

#endif 

if ( (index & 7) ==7) 
{ 

f sd_initiate_write ( ) ; 

} 

} 

dest_addr+=64; 
of f set=0; 

} 

} 

static unsigned char fsd_flash_read (unsigned long addr) 
{ 

TBLPTRL= ( (addr) &0xFF) ; 
TBLPTRH= ( ( ( addr) >>8 ) &0xFF) ; 
TBLPTRU=( ( (addr) »8) »8) ; 
asm ( n \tTBLRD*+" ) ; 
return TABLAT; 

} 



void TableWrite (unsigned char *dest, unsigned char *source, unsigned short Count) 
{ 

unsigned short index=0; 
unsigned char thisCount; 



while (index < Count) { 

if ((index + 64) <= Count) { 
thisCount = 64; 
index += 64; 

} 

else { 

thisCount = Count - index; 



index += Count - index ; 



} 

fsd_flash_write (source, thisCount, dest ); 
source += thisCount; 
dest += thisCount; 

} 



void TableRead (unsigned char *dest, unsigned char *source, unsigned short Count) 
{ 

unsigned char data; 

while (Count > 0) { 

data = fsd_f lash__read ( (unsigned long) source++) ; 
*dest++ = data; 
Count — ; 

} 
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FSDCompileScript = 72, 7, 685, 428, 

FastSimpleDocument = 120, 134, 733, 555, 

Forml = 66, 87, 679, 508, Z, 21, 4, 634, 425, C 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 



# include " support. h" 

# include " i stack. h" 

#ifdef PIC 

near 

#endif 

static short sp=0; 

static ElementType val [MAXDIM] ; 



void IPush (const ElementType f) 
{ 

if (sp<MAXDIM) { 

val [sp++] =f ; 

} 

else { 

debugPutstrHi ( 11 ISTack Of low" ) ; 

} 

} 



ElementType IPop(void) 

{ 

if (sp>0) 

return val [--sp] ; 

else { 

return ISTKERROR; 

} 

} 



ElementType IPeek (const ElementType Item) 

{ 

if (Item >= 0 Sc& Item < sp) 

return val [sp - Item - 1] ; 

else { 

return ISTKERROR; 

} 

} 



short ICountO 

{ 

return sp; 



void EmptylStack (void) 

{ 

sp = 0; 

} 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef DELAY_C 

#define DELAY_C 

#include <picl8.h> 

unsigned char delayus_variable ; 

#include "delay. h" 

void DelayBigUs (unsigned int cnt) 

{ . 

unsigned char i; 

i = (unsigned char) (cnt>>8) ; 

while (i>=l) 

{ 

i--; 

DelayUs(253) ; 
CLRWDT ( ) ; 

} 

DelayUs ( (unsigned char) (cnt & OxFF) ) ; 



void DelayMs (unsigned int cnt) 

{ 

unsigned char i; 
do { 

i = 4; 
do { 

DelayUs (250) ; 
CLRWDT ( ) ; 
} while (--i) ; 
} while (--cnt) ; 

} 

void Delays (unsigned char cnt) 

{ 

unsigned char i; 
do { 

i = 4; 
do { 

DelayMs (250) ; 
CLRWDT ( ) ; 
} while ( --i) ; 
} while (--cnt) ; 

} 

#endif 



PushPlay --An Xml Document emulator\ interpreter for microprocessors 
Copyright (C) 2002, Arthur Gravina. Confidential. 
Arthur Gravina <art@agravina . com> 



Attribute VB_Name = "FastSimpleDocument " 
Option Explicit 

Private Declare Sub CopyMemory Lib "kernel32 M Alias 
"RtlMoveMemory" (dest As Any, source As Any, _ 
ByVal numBytes As Long) 

Public Const N0DE_AVAI LABLE = 0 
Public Const NODE_DYNAMIC = &HF00 
Public Const MAINSCRIPT = 1 
Public Const IRSCRIPT = 2 



Public header As header_def 

Public nodes () As node_def 

Public numNodes As Integer 

Public attributes () As attribute_def 

Public numAttributes As Integer 

Public textBufferO As Byte 
Public nextTextLoc As Integer 



Public dynamicNodes (20) As node_def 
Public maxNode As Integer 

Public dynamicAttributes (60) As attribute_def 

Public maxAttribute As Integer 

Public dynamicText Blocks (32 00) As Byte 

Public maxText Block As Integer 

Public Const TEXT_CHUNK = 32 

Type header_def 

nodeOffset As Integer 

numNodes As Integer 

attributeOf f set As Integer 

numAttributes As Integer 

textAreaOf f set As Integer 

lenTextArea As Integer 

scriptType As Integer 

scriptld As Integer 
End Type 



Type node_def 

parentNode As Integer 
typeNode As Integer 
nextNode As Integer 
firstChild As Integer 
f irstAttribute As Integer 
locName As Integer 
lenName As Byte 
filler As Byte 

End Type 



Type attribute_def 

parentNode As Integer 
nextAttribute As Integer 
locName As Integer 
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locValue As Integer 
lenName As Byte 
lenValue As Byte 
End Type 

Function ByteArrayToString (byteArr ( ) As Byte, Startlndex As Integer, length As Integer) As St: 
Dim res As String 
res = Space (length) 

CopyMemory ByVal res, byteArr (Start Index) , length 
ByteArrayToString = res 
End Function 

Function St ringToSingleBytes (source As String) As Byte ( ) 
StringToSingleBytes = StrConv (source, vbFromUnicode) 
End Function 

Function isArrayEmpty (arr As Variant) As Boolean 
Dim i 

isArrayEmpty = True 
On Error Resume Next 
i = UBound(arr) 

If Err. Number > 0 Then Exit Function 
isArrayEmpty = False 
End Function 



Function f etchNode (nodeld As Integer) As node_def 
If nodeld < 0 Then 

f etchNode = dynamicNodes (Abs (nodeld) - 2) 

Else 

f etchNode = nodes (nodeld) 
End If 

End Function 

Sub saveNode (nodeld As Integer, node As node_def) 
If nodeld < 0 Then 

' dynamicNodes (Abs (nodeld) -2) = node 
Else 

MsgBox "saveNode Error: " 
nodes (nodeld) = node 
End If 
End Sub 

Function f etchAttribute (attributeld As integer) As attribute_def 
If attributeld < 0 Then 

f etchAttribute = dynamicAt tributes (Abs (attributeld) - 2) 

Else 

f etchAttribute = attributes (attributeld) 
End If 

End Function 

Sub saveAttribute (attributeld As Integer, attr As attribute_def ) 

If attributeld < 0 Then 

dynamicAt tributes (Abs (attributeld) - 2) = attr 

Else 

attributes (attributeld) = attr 
End If 
End Sub 

Function f sd_slotAttribute ( ) As Integer 



Dim i 

On Error GoTo errrtn 
tryagain: 

For i = 0 To UBound(dynamicAttributes) 

If dynamicAt tributes (i) .parentNode = N0DE__AVAI LABLE Then 
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If i > maxAttribute Then maxAttribute = i 
dynamic At tributes (i) .parentNode = NODE_DYNAMI C 
dynamic At t r ibu t es (i) . locName = 0 
dynamic At tributes (i) . locValue = 0 
dynamicAttributes (i) .nextAt tribute = -1 
fsd_slotAttribute = - (i + 2) 
Exit Function 
End If 
Next i 



errrtn: 

f sd_slotAttribute = 0 
End Function 

Function f sd_slotTextBlock ( ) As Integer 
Dim loc As Integer 

Do While loc < UBound(dynamicText Blocks) 

If dynamicTextBlocks (loc) = 0 And dynamicTextBlocks (loc + 1) = 0 Then 

If loc > maxTextBlock Then maxTextBlock = loc 



f sd_slotTextBlock = -(loc + 2) 
Exit Function 
End If 

loc = loc + TEXT_CHUNK 

Loop 

f sd_slotTextBlock = 0 
End Function 

Function f sd_slotNode ( ) As Integer 



Dim i As Integer 
On Error GoTo errrtn 
tryagain: 

For i = 0 To UBound(dynamicNodes) 

If dynamicNodes(i) .typeNode = NODE_AVAILABLE Then 

If i > maxNode Then maxNode = i 



dynamicNodes (i) . typeNode = NODE_DYNAMIC 
dynamicNodes (i) . f irstAttribute = -1 
dynamicNodes (i) . firstAttribute = -1 
dynamicNodes (i) . locName = 0 
dynamicNodes (i) .nextNode = -1 
dynamicNodes (i) .parentNode = -1 
fsd_slotNode = -(i + 2) 
Exit Function 
End If 
Next i 



Page 4 of 10 



errrtn: 

fsd_slotNode = 0 
End Function 

Sub f sd_scratchNode (nodeld As Integer) 
Dim attributeNodes ( ) As Integer 
Dim i As Integer 
Dim node As node def 



If Not nodeld < 0 Then 

MsgBox "scratchNode Error: Trying to scratch readonly" 

Exit Sub 
End If 



attributeNodes = f sd_getAttributes (nodeld) 
If Not isArrayEmpty (attributeNodes) Then 

For i = 0 To UBound (attributeNodes) 

f sd_scratchAttribute (attributeNodes (i) ) 

Next i 
End If 



node = fetchNode (nodeld) 

node . typeNode = N0DE_AVAI LABLE 

saveNode nodeld, node 

End Sub 

Function f sd_scratchAttribute (nodeld As Integer) 
Dim node As Integer 

node = Abs (nodeld) - 2 

If nodeld < 0 Then 

f sd_scratchTextBlock dynamicAt tributes (node) .locName 
f sd_scratchTextBlock dynamicAt tributes (node) . locValue 
dynamicAt tributes (node) .parentNode = NODE_AVAI LABLE 

End If 

End Function 

Function f sd_scratchTextBlock (loc As Integer) 
Dim newLoc As Integer 
newLoc = Abs (loc) - 2 
If loc < 0 Then 

dynamicTextBlocks (newLoc) = 0 
dynamicTextBlocks (newLoc + 1) = 0 
End If 
End Function 

Sub f sd_Initialize ( ) 

numNodes = 0 

numAttributes = 0 

nextTextLoc = 0 

ReDim nodes (numNodes) 

ReDim attributes (numAttributes) 

ReDim textBuffer (nextTextLoc) 
End Sub 



Function f sd_addText ( sText As String, Optional dynamicText As Boolean = False) As Integer 
Dim slen As Integer 
Dim loc As Integer 
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Dim bt As Byte 
Dim ba() As Byte 
Dim i As Integer 
Dim nextLoc As Integer 

On Error GoTo errrtn 
slen = Len(sText) 

If slen = 0 Or slen > (TEXT_CHUNK - 2) Then 

fsd_addText = 0 

Exit Function 
End If 

loc = f sd_slotTextBlock ( ) 
If loc = 0 Then 

MsgBox "addText Failed, no more room" 

fsd__addText = 0 

Exit Function 
End If 



nextLoc = Abs(loc) - 2 

ba = StringToSingleBytes (sText) 

For i = 0 To slen - 1 

dynamicTextBlocks (nextLoc) = ba(i) 

nextLoc = nextLoc + 1 
Next i 

dynamicTextBlocks (nextLoc) = 0 

nextLoc = nextLoc + 1 

fsd_addText = loc 

Exit Function 
errrtn: 

MsgBox "Error: " & Err 

fsd_addText =0 
End Function 

Function f sd_getText (locText As Integer) As String 
Dim start As Integer 
Dim slen As Integer 
Dim thisLoc As Integer 

If locText < 0 Then 

thisLoc = Abs (locText) - 2 
start = thisLoc 

Do While dynamicTextBlocks (start) <> 0 
slen = slen + l 
start = start + 1 
If start > 1000 Then Exit Do 

Loop 

start = thisLoc 

fsd_getText = By teArrayToSt ring (dynamicTextBlocks , start, slen) 

Else 

start - locText 

Do While textBuffer (start) <> 0 
slen = slen + 1 
start = start + 1 
If start > 1000 Then Exit Do 

Loop 

start = locText 

fsd_getText = ByteArrayToSt ring (textBuffer , start, slen) 
End If 
End Function 



Function f sd_getChildCount (nodeld As Integer) As Integer 
Dim id As Integer 
Dim cnt As Integer 
On Error GoTo errrtn 
id = fetchNode (nodeld) . firstChild 

Do While id <> -1 
cnt = cnt + 1 

id = fetchNode (id) .nextNode 

Loop 

errrtn: - - 

f sd_getChildCount = cnt 
End Function 



Function f sd_getNthNode (nodeld As Integer, nodeNum As Integer) As Integer 
Dim id As Integer 
Dim cnt As Integer 
On Error GoTo errrtn 
id = fetchNode (nodeld) . firstChild 

Do While id <> -1 

If cnt = nodeNum Then 

f sd_getNthNode = id 

Exit Function 
End If 

cnt = cnt + 1 

id = fetchNode (id) .nextNode 

Loop 
errrtn: 

f sd_getNthNode = id 
End Function 



Function f sd_hasChildNodes (nodeld As Integer) As Boolean 
On Error Resume Next 

f sd_hasChildNodes = fetchNode (nodeld) . firstChild <> -1 
End Function 



Function f sd_getNodesByName (nodeld As Integer, sName As String) As Integer () 
Dim id As Integer 
Dim cnt As Integer 
Dim nodesFoundO As Integer 
Dim cntNodesFound As Integer 
Dim sNodeName As String 

On Error GoTo errrtn 

id = fetchNode (nodeld) .firstChild 

Do While id <> -1 

sNodeName = fsd_get Text ( fetchNode (id) . locName) 
If sNodeName = sName Then 

ReDim Preserve nodes Found (cntNodesFound) 

nodes Found (cntNodesFound) = id 

cntNodesFound = cntNodesFound + 1 
End If 

id = fetchNode (id) .nextNode 

Loop 
errrtn: 

f sd_getNodesByName = nodes Found 
End Function 

Function fsd_getAt tributes (parentNode As Integer) As Integer () 
Dim id As Integer 



Dim cnt As Integer 
Dim node s Found ( ) As Integer 
Dim cntNodesFound As Integer 
Dim sNodeName As String 

On Error GoTo errrtn 

id = f etchNode (parentNode) . f irstAttribute 

Do While id <> -1 

ReDim Preserve nodes Found (cntNodesFound) 
node s Found ( cntNodesFound) = id 
cntNodesFound = cntNodesFound + 1 
id = f etchAttribute (id) .nextAt tribute 

Loop 
errrtn: 

f sd_getAttributes = nodesFound 
End Function 

Function f sd_getChildNodes (nodeld As Integer) As Integer () 
Dim id As Integer 
Dim cnt As Integer 
Dim nodesFound {) As Integer 
Dim cntNodesFound As Integer 
Dim sNodeName As String 

On Error GoTo errrtn 

id = f etchNode (nodeld) .firstChild 

Do While id <> -1 

ReDim Preserve nodesFound (cntNodesFound) 
nodesFound (cntNodesFound) = id 
cntNodesFound = cntNodesFound + 1 
id = f etchNode (id) .nextNode 

Loop 
errrtn: 

f sd_getChildNodes = nodesFound 
End Function 

Public Function f sd_get Root Node ( ) As Integer 
Dim id As Integer 
Do While id <> -1 

If fetchNode(id) .typeNode = NODEJELEMENT Then 

f sd_getRootNode = id 

Exit Function 
End If 

id = f etchNode (id) .nextNode 

Loop 
errrtn: 

f sd_getRootNode = 0 
End Function 



Function f sd_getNodeName (nodeld As Integer) As String 

f sd_getNodeName = fsd_get Text (f etchNode (nodeld) . locName) 
End Function 



Function f sd_ge t At tributeCount (nodeld As Integer) As Integer 
Dim id As Integer 
Dim cnt As Integer 
On Error GoTo errrtn 

id = f etchNode (nodeld) .f irstAttribute 



Do While id <> -1 



Page 8 of 10 



cnt = cnt + 1 

id = f etchAt tribute (id) . nextAt tribute 

Loop 
errrtn: 

f sd_getAttributeCount = cnt 
End Function 



Function fsd_getNthAt tribute (node Id As Integer, attributeNum As Integer) As Integer 
Dim id As Integer 
Dim cnt As Integer 
On Error GoTo errrtn 

id = f etchNode (nodeld) . f irstAttribute 

Do While id <> -1 

If cnt = attributeNum Then 

fsd_getNthAt tribute = id 

Exit Function 
End If 

cnt = cnt + l 

id = f etchAttribute ( id) .nextAttribute 

Loop 
errrtn: 

fsd_getNthAt tribute = id 
End Function 

Function fsd_get At tribute (nodeld As Integer, sName As String) As String 
Dim attributeld As Integer 
Dim sNull As String 

On Error Resume Next 

attributeld = f sd_get At tributeByName (nodeld, sName) 
If attributeld <> -1 Then 

fsd_getAt tribute = f sd_getAttributeValue (attributeld) 

Else 

fsd_getAt tribute = sNull 
End If 
End Function 

Function fsd_getAt tributeByName (nodeld As Integer, sName As String) As Integer 
Dim id As Integer 
Dim cnt As Integer 
On Error GoTo errrtn 

id = f etchNode (nodeld) . f irstAttribute 

Do While id <> -1 

If sName = f sd_getAttributeName (id) Then 
fsd_get At tributeByName = id 
Exit Function 
End If 

cnt = cnt + 1 

id = f etchAttribute (id) .nextAttribute 

Loop 
errrtn : 

fsd_getAt tributeByName = -1 
End Function 



Function f sd__getAttributeName (nodeld As Integer) As String 
On Error GoTo errrtn 

f sd_getAttributeName = f sd_getText (f etchAttribute (nodeld) .locName) 
Exit Function 
errrtn: 

f sd_getAttributeName = Null 
End Function 
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Function f sd_getAttributeValue (nodeld As Integer) As String 
On Error GoTo errrtn 

f sd_getAttributeValue = fsd__getText (f etchAttribute (nodeld) .locValue) 
Exit Function 
errrtn: 

fsd_getAttributeValue = Null 
End Function 



Function fsd_hasAt tributes (nodeld As Integer) As Boolean 
On Error Resume Next 

fsd_has At tributes = fetchNode (nodeld) . firstAttribute <> -1 
End Function 



Sub fsd_readFile (filename As String) 
Dim i As Integer 

Open filename For Binary As #1 
Get #1, 1, header 

ReDim nodes (header .numNodes - 1) 
numNodes = header .numNodes 
Get #1, , nodes 

ReDim attributes (header .numAt tributes - 1) 
numAttributes = header .numAt tributes 
Get #1, , attributes 

ReDim textBuffer (header . lenTextArea - 1) 
Get #1, , textBuffer 
nextTextLoc = header . lenTextArea 

Close #1 

End Sub 



Function f sd_setAttribute (parentNode As Integer, name As String, value As String) As Integer 
Dim sName" As String, sValue As String 
Dim attrld As Integer 

Dim parentAttrld As Integer, attrCount As Integer 

Dim node As node_def 

Dim localAttr As attribute_def 

On Error GoTo errrtn 
If parentNode >= 0 Then 

f sd_setAttribute = -1 
Exit Function 
End If 

attrld = f sd_getAttributeByName (parentNode, name) 
If attrld <> -1 Then 



localAttr = f etchAttribute (attrld) 

f sd_scratchTextBlock localAttr . locValue 
localAttr . locValue = -1 

localAttr . locValue = fsd_addText (value) 
saveAttribute attrld, localAttr 
f sd_setAttribute = attrld 
Exit Function 



End If 



attrld = f sd_slotAttribute() 
localAttr = fetchAttribute (attrld) 

localAttr.parentNode = parentNode 
localAttr. nextAttribute = -1 



localAttr . locName = f sd_addText (name) 
localAttr. locValue = fsd_addText (value) 

saveAttribute attrld, localAttr 
fsd setAttribute = attrld 



attrCount = f sd_ge t At tributeCount (parentNode) 
If attrCount = 0 Then 

node = fetchNode (parentNode) 
node.f irstAttribute = attrld 
saveNode parentNode, node 

Else 

parentAttrld = fsd_getNthAt tribute (parentNode, attrCount 
localAttr = fetchAttribute (parentAttrld) 
localAttr .nextAttribute = attrld 
saveAttribute parentAttrld, localAttr 
End If 

Exit Function 
errrtn: 

End Function 
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/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina . Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#ifndef mainlinepic_h_ 

#define mainlinepic_h_ 

void pwm_osc_init (unsigned long pwm_osc_f requency, unsigned short pwm_osc_dutycycle) ; 

void pwm_s top (void) ; 

void pwm_start (void) ; 

void DisplayErrorMessageV (char *str) ; 

void DisplayErrorMessageC (const char *str) ; 



#endif 
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/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 

V 

#include "f sdinterpretertable . h" 

#ifdef IRJHJLES 

# include " sendir common. h" 

#include "sendirrules . h" 

#endif 

#ifdef IR_UNIV_CHIP 

# include "sendirunivchip.h" 

#endif 

# include "eprom.h" 
#include "beep.h" 

extern char TEMPBUFFER [ ] ; 

extern short currentScriptBuf f er ; 



static const char *commands [42] = { " TopMenu " , "TitleMenu" , "Resume", "Back", 

"Play", "Stop", "Pause", "Next", "Previous", "TitleSeek", "ChapterSeek" , 
"language", "StepForward" , "StepReverse" , "Fast Forward" , "FastReverse" , 
"Set" , "Get" , "ButtonsOnlnternal" , "ButtonsOff Internal " , "Restart" , 
"GetlrScript", "SetlrScript " , "Append", "", "", "If", 
"Button", "TrickPlay", "Sleep", "TimeSeek", "Increment", 
"SleepHard" , "PushButton" , "PushNumbers" , "ButtonsOn" , "ButtonsOff" , 
"IrRaw" , "IrRawPart" , "IrSend" , 
NULL }; 

static short procCommand{ short iCommand, Nodeld commandNode, Nodeld buttons [], short len); 
static void info (const char *msg) ; 



void PushPlaylnitialize (void) 

{ 

fsdint_init Commands (commands, procCommand, info); 

} 



static short procCommand ( short iCommand, Nodeld node, Nodeld buttons [], short len) 

{ 

TextLoc loci, loc2, loc3 ; 

PtrTextLoc sValue, sValue2, sCommand; 

int ticks; 

short iMinValue, iMaxValue, count, iSecond, iMillisecond; 

loci = f sd_slotTextBlock ( ) ; 
loc2 = f sd_slotTextBlock ( ) ; 
loc3 = f sd_slotTextBlock ( ) ; 

sValue = fsd_f etchTextLocPtr (loci) ; 
sValue2 = fsd_f etchTextLocPtr ( loc2 ) ; 
sCommand = fsd_f etchTextLocPtr ( loc3 ) ; 

count = 0; 

if (sValue != NULL && sValue2 != NULL && sCommand != NULL) { 
ticks = GetTicks()& 0x7FFF; 

f sd_getNodeName (node, sCommand, CHAR_BUFFERSIZE) ; 
if (iCommand != 39) { 
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debug (("%d Command %s %d:" f ticks, sCommand, currentScriptBuf f er )) 

} 

switch (iCommand) { 

case 0: 

ir_sendWords (MENU) ; 
break; 

case l: 

ir_sendWords (TITLE) ; 
break; 

case 2 : 

ir_sendWords (PLAY) ; 
break; 

case 3 : 

ir_sendWords (MENU) ; 
break; 

case 4 : 

ir_sendWords (PLAY) ; 
break ; 

case 5: 

ir_sendWords (STOPDVD) ; 
break; 

case 6: 

ir_sendWords ( PAUSE ) ; 
break ; 

case 7: 

ir_sendWords (NEXTCHAPTER) ; 
break ; 

case 8: 

ir_sendWords ( PREVCHAPTER) ; 
break; 

case 9: 

f sdint_f etch( "title", sValue, CHAR_BUFFERSIZE) ; 

debugHi ( ( " %s " , sValue) ) ; 

buttons [0] = ir_f indMacro (TITLESEEK, "TITLESEEK") 

if (buttons [0] .!= NODE_ERROR) count = 1; 

break; 

case 10: 

f sdint_fetch( "chapter", sValue, CHAR_BUFFERS I ZE ) ; 

debugHi ( ( " %s " , sValue ) ) ; 

buttons [0] = ir_f indMacro (CHAPTERSEEK, "CHAPTERSE 

if (buttons [0] != NODE_ERROR) count = 1; 

break; 

case 16: 

f sdint_fetch( M id", sValue, CHAR_BUFFERSIZE) ; 
fsdint_f etch ("value", sValue2, CHAR_BUFFERSIZE) ; 
debugHi ( ( "%s=%s" , sValue , sValue2) ) ; 
fsdint_store (sValue, sValue2) ? 
break; 

case 18: 

f sdint_ButtonsOnInternal () ; 
. break; 
case 19: 

f sdint_ButtonsOf f Internal ( ) ; 
break; 

case 20: 

f sdint__Restart 0 ; 
break; 

case 21: 

f sdint_Reset ( ) ; 
break; 

case 22: 

f sdint_GetIrScript 0 ; 
break; 

case 23 : 
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fsdint_fetch( "value" , sValue, CHAR_BUFFERSIZE) ; 
iSecond = fsd_get Integer (sValue) ; 

f sdint_SetIrScript (iSecond) ; 
break ; 

case 24 : 

f sdint_fetch("id" , sValue, CHAR_BUFFERSIZE) ; 

f sdint_fetch( "value" ,- sValue2, CHAR_BUFFERSIZE) ; 

f sdint_append (sValue, sValue2) ; 

fsdint_f etch (sValue, sValue2, CHAR_BUFFERSIZE) ; 

keypressBeep ( ) ; 

debugHi ( ("%s=%s", sValue ,sValue2)) ; 
break ; 

case 30: 

f sdint_f etch ("seconds " , sValue, CHAR_BUFFERSIZE) ; 
iSecond = fsd_getlnteger (sValue) ; 

fsdint_f etch ( "milliseconds" , sValue, CHAR_BUFFERS 
iMillisecond = f sd_get Integer (sValue) ; 
debugHi(( "%d %d" , iSecond, iMillisecond )); 
f sdint_delay ( iSecond, iMillisecond); 
break ; 



case 31: 

fsdint_fetch("time", sValue, CHAR_BUFFERSIZE) ; 

debugHi ( ("%s" , sValue) ) ; 



buttons [0] = ir_f indMacro (TIMESEEK, "TIMESEEK" ) ; 
if (buttons [0] 1= N0DE_ERR0R) count = 1/ 
break; 



case 32: 

fsdint_fetch("id", sValue, CHAR_BUFFERSIZE) ; 
f sdint_f etch ( "min" , sValue2 , CHAR_BUFFERSIZE) ; 
iMinValue = f sd_getlnteger (sValue2) ; 
fsdint_fetch("max", sValue2, CHAR_BUFFERS I ZE ) ; 
iMaxValue = f sd__get Integer (sValue2) ; 
debugHi (("%s %d %d" , sValue, iMinValue, iMaxValue 
f sdint_increment (sValue, iMinValue, iMaxValue) ; 
break ; 

case 33 : 

fsdint_fetch(" seconds", sValue, CHAR_BUFFERSIZE) ; 
iSecond = fsd_get Integer (sValue) ; 

fsdint_f etch ( "milliseconds" , sValue, CHAR_BUFFERS 
iMillisecond = f sd_get Integer (sValue) ; 
debugHi ( ( "%d %d" , iSecond, iMillisecond ) ) ; 
f sdint_hardDelay ( iSecond, iMillisecond) ; 
break ; 

case 34: 

fsdint__fetch("id", sValue, CHAR_BUFFERSIZE) ; 
debugHi ( ( "%s" , sValue) ) ; 

iSecond = (short) ir_lookupBut ton (sValue ) ; 

ir_sendWords ( (char) iSecond) ; 

break; 

case 35: 

f sdint_fetch( "value", sValue, CHAR_BUFFERSIZE) ; 
debugHi ( ( " %s " , sValue ) ) ; 



ir_sendNumbersSt ring (sValue) ; 
break; 

case 36: 

f sdint_ButtonsOn ( ) ; 
break; 

case 37: 

f sdint_ButtonsOf f 0 ; 
break; 

case 38: 

break; 
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} 



case 39: 
case 40: 

default : 

} 

} 

else { 

info ("No textLoc avail"); 

} 

f sd_scratchTextBlock (loci) ; 
f sd_scratchTextBlock (loc2) ; 
f sd_scratchTextBlock(loc3) ; 
return count ; 



static void info (const char *msg) 

{ 

debugPutstrHi (msg) ; 

} 



break ; 
break ; 

debugPutstrHi ("Command not implemented"); 



/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
★ 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

# inc lude " support . h " 

#include "rstack.h" 
#ifdef DEBUG 
#include <stdio.h> 
tfendif 

#include <string.h> 
#include "f sdtablelarge .h" 

#ifdef PIC 
#include "delay. h» 
tfinclude " i2c_ccs.h" 
#include " tablereadwrite .h" 
#else 

# include "pcromchip .h" 
#endif 

# include "eprom.h" 
# include "beep.h" 



const char EMPTY_STRING [ ] = ""; 

extern char TEMPBUFFER [ ] ; 
extern short devTicks; 



extern const unsigned char *f lashMemory ; 



static struct header_def header [NUMSCRIPTS] ; 

#ifdef PIC 

near 

#endif 



unsigned short 

#ifdef PIC 

near 

ttendif 

short 



scriptBuffer [NUMSCRIPTS] ; 



numScriptBuf f ers ; 



#ifdef PIC 
near 
#endif 
short 



currentScriptBuf f er; 



#ifdef PIC 
near 
#endif 
short 



irScriptBuf f er; 



#ifdef PIC 

near 

#endif 

short mainScriptBuf f er ; 



#ifdef PIC 

near 

#endif 

short of f setFlashMemory = 0; 



struct node_def dynamicNodes [NUMDYNAMICNODES] ; 

short maxNode ; 

struct attribute_def dynamic At tributes [NUMDYNAMICATTRIBUTES] ; 
short maxAttribute; 

char dynamicTextBuf f er [SIZETEXTBUFFER] 

TextLoc maxTextLoc ; 

static void *f etchNodePtr (const Nodeld nodeld, const short offset) ; 
static void *f etchAttributePtr (const Nodeld nodeld, const short offset); 

void f sd_Initialize (void) 

{ 

short i ; 

for (i=0; i < NUMSCRIPTS; i + +) { 
scriptBuf f er [i] = 0; 

} 

tfifndef PIC 

pc_Init () ; 

#endif 

epromlnitialize (FALSE) ; 

numScriptBuf f ers = 0; 
currentScriptBuf fer = 0 ; 
of f setFlashMemory = 0; 

} 

void f sd_LoadMainScript (void) 

{ 

struct eprom_script_def script; 
short scriptType, script Id; 

script Type = MAINSCRIPT; 

if (devTicks == -1) { 

scriptld = IRGETSCRIPTID; 

} 

else { 

scriptld = -1; 

} 

script . location = -1; 

if (epromGetScript (scriptType, scriptld, &script) == -1) { 
f sd_setScriptBuf fer (scriptType, scriptld) ; 

} else { 

f sd_setScriptBuf ferNoLoad (&script) ; 

} 



void f sd_setMainScriptBuf f er (void) 

{ 

currentScriptBuf fer = mainScriptBuf f er ; 

} 
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void f sd_switchRomBuffer ( short newRomBuf f er) 
{ 

RPush (currentScriptBuf f er) ; 
currentScriptBuf f er = newRomBuf fer; 

} 



void f sd_unswitchRomBuf fer ( ) 

{ 

currentScriptBuf fer = RPopO; 

} 



static void *f etchNodePtr (const Nodeld nodeld, const short offset) 

{ 

Nodeld node; 
long address; 

if (nodeld < 0 ) { 

node = abs (nodeld) - 2; 

if (node >= NUMDYNAMI CNODES | | node < 0) return (void * ) N0DE_ERR0R ; 
return (unsigned char * ) &dynamicNodes [node] + offset; 

} else { 

node = nodeld; 

if (node >= header [currentScriptBuf fer] .numNodes || node < 0) { 
return (void * ) N0DE__ERR0R ; 

} 

address = scriptBuf fer [currentScriptBuf fer] ; 
address += header [currentScriptBuf fer] . nodeOff set ; 
address += node * sizeof (struct node_def ) ; 
address += offset; 
return (void *) address; 

} 

} 



static void *f etchAttributePtr (const Nodeld nodeld, const short offset) 

{ 

Nodeld node; 
long address; 

if (nodeld < 0 ) { 

node = abs (nodeld) - 2; 

if (node >= NUMDYNAMI CATTRI BUTES | | node < 0) return (void * ) NODE_ERROR ; 
return (unsigned char *) kdynamicAt tributes [node] + offset; 

} else { 

node = nodeld; 

if (node >= header [currentScriptBuf fer] .numAt tributes || node < 0) return {\ 

address = scriptBuf fer [currentScriptBuf fer] ; 
address += header [currentScriptBuf fer] . attributeOf f set ; 
address += node * sizeof (struct attribute_def ) ; 
address += offset; 
return (void *) address; 



} 
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void *fsd_fetchTextLocPtr (const TextLoc locText) 
{ 

TextLoc thisLoc ; 

long address; 

if (locText < 0) { 

thisLoc = abs (locText) - 2; 

if (thisLoc < 0 | | thisLoc >= S I ZETEXTBUFFER - 1) return (void * ) NODE_ERROR ; 
return (unsigned char *) &dynamicTextBuf f er [thisLoc] ; 



} 

else { 



thisLoc = locText; 

if (thisLoc < 0 || thisLoc >= header [currentScriptBuf fer] . lenTextArea - 1) i 

address = scriptBuf fer [currentScriptBuf fer] ; 
address += header [currentScriptBuf fer] . textAreaOff set ; 
address += thisLoc; 
return (void *) address; 



Nodeld f sd_f etchNode (PtrNode pNode, Nodeld node) 

{ 

void *address; 

address = f etchNodePtr (node, 0) ; 

if (address == (void * ) NODE_ERROR) return N0DE_ERROR; 
if (node < 0) { 

memcpy (pNode, address, sizeof (Node) ) ; 

} 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy (pNode, flashMemory+ (long) address, sizeof (Node) ) ; 

#else 

ROM_Read( (int) address, (char *)pNode, sizeof (Node) ) ; 

#endif 

} 

return node; 

} 



Nodeld fsd_fetchNodeId( const Nodeld node, const short offset) 

{ 

unsigned char*address ; 
Nodeld word; 

address = f etchNodePtr (node, offset); 

if (address == (void * ) NODE_ERROR ) return N0DE_ERR0R; 
if (node < 0) { 

memcpy ( &word , address, sizeof (WORD) ) ; 

} 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy (&word, f lashMemory+ (long) address, sizeof (WORD) ) ; 

#else 

word = ROM_ReadWord( (int) address) ; 

#endif 

} 

return word; 
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Nodeld fsd_fetchAttribute(PtrAttribute pAttribute, Nodeld attribute) 
{ 

void *address; 

address = fetchAttributePtr (attribute, 0) ; 

if (address == (void *) NODE_ERROR) return NODE_ERROR; 

if (attribute < 0) { 

memcpy (pAttribute, address, sizeof (Attribute) ) ; 

} 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy (pAttribute, flashMemory+ (long) address, sizeof (Attribute) ) ; 

#else 

R0M_Read( (int) address, pAttribute, sizeof (Attribute) ) ; 

#endif 

} 

return attribute; 

} 

Nodeld f sd_fetchAttributeId (const Nodeld attribute, const short offset) 
{ 

unsigned char*address ; 
WORD word ; 

address = fetchAttributePtr (attribute, offset); 

if (address == (void * ) NODE__ERROR) return NODE_ERROR; 

if (attribute < 0) { 

memcpy (&word, address, sizeof (WORD) ) ; 

} . 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy { &word , flashMemory+ (long) address, sizeof (WORD) ) ; 

#else 

word = ROM_ReadWord( (int) address) ; 

#endif 

} 

return word; 

} 

TextLoc f sd_f etchNodeTextLoc (const Nodeld node, const short offset) 

{ 

unsigned char *address; 
WORD word ; 

address = f etchNodePtr (node, offset); 

if (address == (void * ) NODE_ERROR) return (TextLoc) NODE_ERROR; 
if (node < 0) { 

memcpy (&word, address, 2) ; 

} 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy (&word, flashMemory+ (long) address, sizeof (WORD) ) ; 

#else 



Page 6 of 17 



word = ROM_Readword( (int) address) ; 

#endif 

} 

return word; 

} 

TextLoc f sd_f etchAttributeTextLoc (const Nodeld attribute, const short offset) 

{ 

unsigned char *address; 
WORD word; 

address = f etchAttributePtr (attribute, offset); 

if (address == (void * ) NODE_ERROR) return ( TextLoc ) NODE_ERROR ; 

if (attribute < 0) { 

memcpy (&word, address, 2); 

} 

else { 

#ifdef SCRIPT_IN_FLASH 

memcpy (&word, flashMemory+ (long) address, sizeof (WORD) ) ; 

#else 

word = ROM_ReadWord ( ( int ) address ) ; 

#endif 

} 

return word; 

} 

void f sd_f etchText (TextLoc textLoc, short textLen, char *buffer, const short len) 

{ 

PtrTextLoc loc; 
short size; 

loc = f sd_fetchTextLocPtr (textLoc) ; 
if (loc == ( PtrTextLoc ) NODE_ERROR) { 

strcpy (buffer, EMPTY_STRING) ; 

return; 

} 

if (textLen >= len) 

size = len - 1; 

else 

size = textLen; 
if (textLoc < 0) { 

strncpy (buf f er, loc, size) ; 

} else { 

#ifdef SCRIPT_IN_FLASH 

strncpy (buf fer, flashMemory+ (long) loc, size) ; 

#else 

ROM_Read( (int ) loc, buffer, (char) size); 

#endif 

} 

buffer [size] = 0; 

} 



Nodeld f sd_slotAttribute (void) 
{ 

short i ; 



for (i=0; i < NUMDYNAMICATTRI BOTES; i++) { 

if (dynamicAt tributes [i] .parentnode == NODE_AVAILABLE 

if (i > maxAttribute) { 

maxAttribute = i; 

} 

dynamicAttributes [i] -parentnode = NODE_ALLOCATED ; 
dynamic At t r ibut es [i] . locname = 0; 
dynamicAttributes [i] . locvalue = 0; 
dynamicAttributes [i] . nextattribute = NODE_EMPTY; 
return (Nodeld) -(i + 2); 

} 

} 

return NODE_ERROR; 

} 



void f sd_scratchAttribute (const Nodeld nodeld) 
{ 

PtrAttribute pAttrib; 



if (nodeld < 0 ) { 

pAttrib = fetchAttributePtr (nodeld, 0) ; 
if (pAttrib == (PtrAttribute) NODE_ERROR) return; 
f sd_scratchTextBlock (pAttrib- >locname) ; 
f sd_scratchTextBlock (pAttrib- > locvalue) ; 
pAttrib- >parentnode = NODE_AVAILABLE; 

} 

} 



Nodeld fsd slotNode (void) 



{ 



short i; 

for (i=0; i < NUMDYNAMICNODES; i++) { 

if (dynamicNodes [i] .parentnode 

if (i > maxNode) maxNode = i; 



NODE_AVAI LABLE ) { 



dynamicNodes [i] . typenode = NODE_ALLOCATED ; 



dynamicNodes [i] 
dynamicNodes [i] 
dynamicNodes [i] 
dynamicNodes [i] 
dynamicNodes [i] 
dynamicNodes [i] 



f irstattribute = NODE_EMPTY ; 

firstchild = NODE_EMPTY ; 

locname = -1; 

lenname = 0; 

next node = NODE_EMPTY; 

parentnode = NODE_EMPTY; 



return (Nodeld) -(i + 2) ; 



} 

return NODE_ERROR; 



void f sd_sc rat chNode (const Nodeld nodeld) 

{ 

PtrNode pNode; 
short pos; 
Nodeld attrib; 

pos = 0; 



if (nodeld < 0 ) { 

pNode = fetchNodePtr (nodeld, 0) ; 

if (pNode == ( PtrNode) NODE_ERROR) return; 
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while ( (attrib = f sd_getAttributeByPos (nodeld, pos) ) != NODE_ERROR) { 
f sd_scratchAt tribute (attrib) ; 
pos++ ; 

} 

f sd_scratchTextBlock (pNode- >locname) ; 
pNode->parentnode = NODE_AVAI LABLE ; 

} 

} 



TextLoc f sd_slotTextBlock (void) 

{ 

TextLoc loc=0; 

while (loc < SIZETEXTBUFFER && (loc + 1) < SIZETEXTBUFFER) { 

if (dynamicTextBuf f er [loc] == 0 && dynamicTextBuf f er [loc + 1] == 0) { 

if (loc > maxTextLoc) { 

maxTextLoc = loc; 

} 

dynamicTextBuf fer [loc+1] = 1; 
return - (loc + 2) ; 

} 

loc += TEXT_CHUNK; 

} 

return TEXTLOC_EMPTY ; 



void f sd_scratchTextBlock (const TextLoc loc) 
PtrTextLoc pText; 
if (loc < 0) { 

pText = f sd_f etchTextLocPtr (loc) ; 

if (pText == ( PtrTextLoc )NODE_ERROR) return; 
*pText++ = 0; 
*pText = 0; 

} 

} 



short f sd_getAttributes (const Nodeld parentNode, Nodeld nodesFound [] , const short len) { 
Nodeld id; 

short cntNodesFound=0 ; 

id = f sd__fetchNodeId (parentNode, FIRSTATTRIBUTE) ; 

while (!(id == NODE_EMPTY || id == NODE_ERROR) ) { 
if (cntNodesFound len) return len; 
nodesFound [cntNodesFound] = id; 
cntNodesFound++ ; 

id = fsd_fetchAttributeId(id, NEXTATTRIBUTE) ; 

} 

return cntNodesFound; 



void f sd_setNodeName (const Nodeld node, const Nodeld parent, const char *name) 



{ 



PtrNode pNode; 
PtrTextLoc pText; 



pNode = f etchNodePtr (node, 0) ; 

pText = f sd_f etchTextLocPtr (pNode- >locname) ; 
if (pText != ( PtrTextLoc )N0DE_ERR0R) { 

f sd_scratchText Block (pNode->locname) ; 

} 

pNode->locname = f sd_addText (name) ; 
pNode->parentnode = parent; 
pNode-> type node = NODE_ELEMENT ; 



TextLoc fsd_addText (const char *sText) 

{ 

short slen; 
TextLoc loc; 
PtrTextLoc pText; 

slen = strlen (sText) ; 
if (slen == 0) return 0; 

if (slen > TEXT_CHUNK - 1 ) slen = TEXT_CHUNK 

loc = fsd_slotTextBlock() ; 

pText = f sd_f etchTextLocPtr (loc) ; 
if (pText == ( PtrTextLoc )NODE_ERROR) { 

debugPutstrHi ( "addText err" ) ; 

return 0; 

} 

strncpy (pText , sText , slen) ; 

pText += slen; 

*pText = 'Non- 
return loc; 

} 



Nodeld f sd_get Root Node (void) 

{ 
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Nodeld id=0; 

while (Mid == NODE_EMPTY | | id == NODE_ERROR) ) { 

if (f sd_fetchNodeId(id,TYPENODE) == NODE_J2LEMENT ) { 
return id; 

} 

id = fsd_fetchNodeId(id, NEXTNODE) ; 

} 

return NODE ERROR; 



short f sd_get Chi ldNodes (const Nodeld parentNode, Nodeld nodesFound [] , const short len) 

{ 

Nodeld id; 

short cntNodesFound=0 ; 

id = fsd^fetchNodeld (parentNode , FIRSTCHILD) ; 

while (!(id == NODE_EMPTY | | id == NODE_ERROR) ) { 

if (cntNodes Found >= len) return len; 
nodesFound [cntNodes Found] = id; 
cntNodesFound++ ; 

id = fsd_fetchNodeId(id / NEXTNODE); 

} 

return cntNodes Found; 

} 



Nodeld f sd_getChildByPos (const Nodeld parentNode, const short pos) 

{ 

Nodeld id; 
short cnt=0; 

id = fsd_fetchNodeId (parentNode, FIRSTCHILD) ; 

while (! (id == NODE_EMPTY | | id == NODE_ERROR) ) { 
if (cnt == pos) return id; 

cnt++; 

id = fsd_fetchNodeId(id, NEXTNODE); 

} 

return NODE_ERROR ; 

} 



short f sd_get Chi ldCount (const Nodeld parentNode) 

{ 

Nodeld id; 

short cntNodesFound=0 ; 

id = fsd_fetchNodeId (parentNode, FIRSTCHILD) ; 

while (!(id == NODE_EMPTY | | id == NODE_ERROR) ) { 
cntNodes Found ++ ; 

id = f sd_fetchNodeId(id, NEXTNODE); 

} 

return cntNodes Found; 

} 



void f sd_getNodeName (const Nodeld nodeld, char *buf f er, const short len) 



Page 11 of 17 



{ 

Node node; 
Nodeld id; 

id = f sd_f etchNode (&node, nodeld); 
if (id == NODE_ERROR) { 

strcpy {buffer, EMPTY_STRING) ; 

} 

else { 

f sd_f etchText (node . locname, node . lenname, buffer, len) ; 

} 

} 



short f sd_get Node sByName (const Nodeld parentNode, const char *sName, Nodeld nodesFound[] , coni 

{ 

Nodeld id; 

short cntNodesFound=0 ; 

id = f sd_fetchNodeId (parentNode, FIRSTCHILD) ; 

while (!(id == NODE_EMPTY || id == NODE_ERROR) ) { 

f sd_getNodeName(id, TEMPBUFFER, CHAR_BUFFERSIZE) ; 
if ( st rcmp (TEMPBUFFER, sName) ==0) { 

node s Found [cnt Nodes Found] = id; 

cntNodesFound++ ; 

} 

id = fsd_fetchNodeId(id, NEXTNODE) ; 

} 

return cntNodes Found; 



Nodeld f sd_get At tributeByName (const Nodeld parentNode, const char *sName) 
{ 

Nodeld id; 

Attribute attrib; 
char count; 

count = 0; 

id = f sd_fetchNodeId (parentNode, FIRSTATTRIBUTE) ; 

while (!(id == NODE_EMPTY || id == NODE_ERROR) ) { 
id = f sd_f etchAttribute (&attrib, id) ; 
if (id == N0DE_ERR0R ) break; 



f sd_f etchText (attrib. locname, attrib . lenname, TEMPBUFFER, CHAR_BUFFERSIZE) ; 
if ( st rcmp (TEMPBUFFER, sName) == 0) { 
return id; 

} 



id = attrib. nextattribute; 
if ( count ++ > 100) break; 

} 

return NODE_ERROR; 

} 



short f sd__getAttributeCount (const Nodeld parentNode) 
{ 

Nodeld id; 

short cnt=0; 

id = fsd_fetchNode!d (parentNode, FIRSTATTRIBUTE) ; 
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while (!(id == NODE_EMPTY || id == NODE_ERROR) ) { 
cnt++; 

id = fsd_fetchAttributeId(id,NEXTATTRIBUTE) ; 

} 

return cnt; 

} 



Nodeld f sd_getAttributeByPos ( const Nodeld parentNode, const short pos) 

{ 

Nodeld id; 

short cnt=0; 

id = f sd_f etchNodeld (parentNode, FIRSTATTRIBUTE) ; 

while (I (id == NODE_EMPTY || id == NODE_ERROR) ) { 
if (cnt == pos) { 

return id; 

} 

cnt++; 

id = fsd_fetchAttributeId(id,NEXTATTRIBUTE) ; 

} 

return NODE_ERROR; 



void f sd_getAttributeValue (const Nodeld attributeld, char *buffer, const short len) 

{ 

Attribute attrib; 
Nodeld id; 

id = f sd_fetchAttribute (&attrib, attributeld); 
if (id == NODE_ERROR) { 

strcpy (buffer, EMPTY_STRING) ; 

return; 

} 



f sd_f etchText (attrib. locvalue, attrib. lenvalue, buffer, len); 

} 

void fsd_get At tribute (const Nodeld parentNode, const char *attribName, char *buffer, const she 

{ 

Nodeld attribNode; 
attribNode = f sd_get At tributeByName (parentNode, attribName) ; 
if (attribNode == NODE_ERROR) { 

strcpy (buffer, EMPTY_STRING) ; 
return; 

} 

f sd_getAttributeValue (attribNode, buffer, len); 

} 

BOOL fsd_hasAttributes (const Nodeld nodeld) 
{ 

return f sd_f etchNodeld (nodeld, FIRSTATTRIBUTE) != NODE_EMPTY ; 

} 

BOOL f sd_hasChildNodes (const Nodeld nodeld) 

{ 

return fsd_f etchNodeld (nodeld, FIRSTCHILD) != NODE_EMPTY ; 

} 
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Nodeld f sd_setAttribute (const Nodeld parentNode, const char *name, const char *value) 

{ 

Nodeld attrld; 

Nodeld attrParent; 

short attrCount; 
PtrAt tribute pAttribute; 

PtrNode pNode; 



if ( parentNode >= 0 ) { 
return NODE_ERROR; 

} 

attrld = f sd_get At tributeByName (parentNode, name); 
if ( attrld != NODE_ERROR ) { 

pAttribute = f etchAttributePtr (attrld, 0) ; 

if (pAttribute == ( PtrAt tribute) N0DE_ERR0R) return N0DE_ERR0R; 

f sd_scratchTextBlock (pAttribute- >locvalue) ; 

pAttribute- >locvalue = fsd_addText (value) ; 

pAttribute- >lenvalue = (unsigned char) strlen (value) ; 
return attrld; 

} 



pNode = fetchNodePtr (parentNode, 0) ; 

if (pNode == ( PtrNode )NODE_ERROR) return NODE_ERROR; 

attrld = fsd_slotAttribute() ; 

if (attrld == NODE_ERROR) return NODE_ERROR ; 
pAttribute = f etchAttributePtr (attrld, 0) , • 

pAttribute- >parentnode = parentNode; 
pAttribute- >nextattribute = NODE_EMPTY; 

pAttribute- >locname = f sd_addText (name) ; 

pAttribute- >lenname = (unsigned char) strlen (name) ; 
pAttribute- >locvalue = fsd_addText (value) ; 

pAttribute- >lenvalue = (unsigned char) strlen (value) ; 



attrCount = f sd_get At tributeCount (parentNode) ; 
if ( attrCount == 0 ) { 

pNode->f irstattribute = attrld; 
} else { 

attrParent = f sd_getAttributeByPos (parentNode, (const short) (attrCount - 1) ) 
pAttribute = f etchAttributePtr (attrParent , 0) ; 

if (pAttribute == ( PtrAt t r ibu te ) NODE_ERROR) return NODE_ERROR; 
pAttribute- >nextattribute = attrld; 

} 

return attrld; 

} 



short fsd_getlnteger (const char *value) 

{ 

return atoi (value); 
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static void readHeaderFlash (void) 
{ 

struct header_def *headerFrom; 

headerFrom = (struct header_def * ) (f lashMemory+scriptBuf f er [currentScriptBuf f er] ) 
memcpy (&header [currentScriptBuf fer] , headerFrom, sizeof ( struct header_def ) ) ; 



#ifdef SCRIPT_IN_FLASH 

void f sd_moveScriptFlash( struct script_def *script, short numBytes) 
{ 

#ifdef PIC 

short count, sourceOff set , destOffset , chunk; 

int romAddress; 

unsigned long destAddress; 

char buffer [32] ; 



numBytes = (numBytes +7) & 0xfff8; 



count = 0; 

romAddress = script ->locat ion; 
destAddress = (unsigned long) f lashMemory ; 

sourceOff set = 0; 

destOffset = of f setFlashMemory ; 

while (count < numBytes) { 

if ( count+32 < numBytes) { 
chunk = 32; 

} 

else { 

chunk = numBytes - count; 

} 

ROM_Read (romAddres s+ sourceOff set , buffer, chunk) ; 

TableWrite ( (unsigned char *) (destAddress+destOf f set ) , buffer, chunk); 



count += chunk; 
sourceOff set += chunk; 
destOffset += chunk 

} 

#else 

pc_moveScript Flash ( script, numBytes) ; 
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#endif 
} 

#endif 
#ifdef PIC 

static void readHeaderROM (unsigned char *address) 



header [currentScriptBuffer] .nodeOffset = ROM_ReadWord ( (int ) address+0) ; 
header [currentScriptBuffer] .numNodes = ROM_ReadWord ( ( int) address+2) ; 
header [currentScriptBuffer] . attributeOf f set = ROM_ReadWord( (int) address+4) ; 
header [currentScriptBuffer] .numAt tributes = ROM_ReadWord ( ( int) address+6 ) ; 
header [currentScriptBuffer] . textAreaOf f set = ROM_ReadWord < (int ) address+8) ; 
header [currentScriptBuffer] .lenTextArea = ROM_ReadWord ( (int) address* 10) ; 
header [currentScriptBuffer] .scriptType = ROM_ReadWord( (int) address+12) ; 
header [currentScriptBuffer] .scriptld = ROM_ReadWord ( (int ) address* 14 ) ; 

} 

#endif 



short f sd_f indScript (short scriptType, short scriptld, struct script_def *script) 
{ 

#ifdef PIC 

unsigned char scriptFound; 

short i, numScripts, scriptOrigin; 

scriptOrigin = sizeof (struct control_def ) ; 
numScripts = ROM_ReadWord (NUMBERSCRIPTS) ; 
scriptFound = FALSE; 

for (i=0; i < numScripts; i++) { 

script->type = ROM_ReadWord ( 0 + (i * sizeof ( struct script_def) + scriptOrigj 
script->id = ROM_ReadWord ( 2 + (i * sizeof (struct script_def) + scriptOrigin) 
script->location = ROM_ReadWord ( 4 + (i * sizeof (struct script__def) + scriptC 

if (script->type != scriptType) continue; 

if (scriptld != -1 && script->id != scriptld) continue; 

readHeaderROM ( (unsigned char *) script- >location) ; 

scriptFound = TRUE; 

break ; 

} 

return scriptFound; 



#else 

ttendif 
} 



return pc_f indScript (scriptType, scriptld, script, &header [currentScriptBuf f er] ) ; 



void f sd_setScriptBuf f er (short scriptType, short scriptld) 
{ 

#ifdef SCRIPT_IN_FLASH 

struct eprom_script_def epromScript; 
short numBytes; 

#endif 

struct script_def script; 
short scriptFound; 
short saveScriptBuf f er; 

if ( ! (numScriptBuf fers < NUMSCRIPTS) ) { 
errorBeep ( ) ; 

debugPutstrHi ( "too many scripts"); 
return; 
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} 

saveScriptBuf f er = currentScriptBuf fer ; 
currentScriptBuf f er = numScriptBuf f ers ; 

scriptFound = f sd_f indScript ( scriptType, scriptld, fcscript) ; 
if (scriptFound) { 

debug ( ("Script Found %d %d" , script. type, script . id) ) ; 

scriptBuffer [currentScriptBuf fer] = script . location; 

numScriptBuf fers++ ; 

if (scriptType == IRSCRIPT) { 

irScriptBuf f er = currentScriptBuf fer ; 

} 

if (scriptType == MAINSCRIPT) { 

mainScriptBuf f er = currentScriptBuf fer ; 

} 

#ifdef SCRIPTIN FLASH 



#endif 



} 

else { 



numBytes = sizeof ( struct header_def ) ; 

numBytes += header [currentScriptBuf fer] . numNodes * sizeof (struct node_def ) ; 
numBytes += header [currentScriptBuf fer] . numAttributes * sizeof (struct attrih 
numBytes += header [currentScriptBuf fer] . lenTextArea; 

if ( (numBytes + of f setFlashMemory) < FLASHARE AS I Z E ) { 
f sd__moveScript Flash (&script , numBytes) ; 
scriptBuffer [currentScriptBuf fer] = of f setFlashMemory ; 
of f setFlashMemory += numBytes; 

epromScript . id = header [currentScriptBuf fer] . scriptld; 
epromScript . location = scriptBuffer [currentScriptBuf fer] ; 
epromScript . type = header [currentScriptBuf fer] . scriptType ; 
epromScript . len = numBytes; 

epromWriteScriptNumber (currentScriptBuf fer, kepromScript ) ; 



currentScriptBuf fer = saveScriptBuf fer ; 

if (scriptType == IRSCRIPT) { 

epromWriteWord(EPROM_IR_SCRIPTID / -1) ; 

} 

debug (( "Script Type: %d Id: %d Not Found", scriptType, scriptld)); 
errorBeep ( ) ; 



void f sd_setScriptBuf f erNoLoad( struct eprom_script_def * script) 

{ 

currentScriptBuf fer = numScriptBuf f ers ; 
numScriptBuf fers++ ; 

of f setFlashMemory = script->location + script->len; 
if (script->type == IRSCRIPT) { 

irScriptBuf fer = currentScriptBuf fer; 
} else if (script->type == MAINSCRIPT) { 

mainScriptBuf fer = currentScriptBuf fer ; 

} 
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scriptBuf f er [currentScriptBuf f er] = script- >location; 
#if ! defined PIC && defined SCRIPT_IN_FLASH 

pc_readFlash (script ->locat ion, script- >len) ; 

#endif 

readHeaderFlashO ; 

debug (( "RomScript %d %d %d %d" , script->type, script->id, script->location, script->: 



void f sd_clearEpromScript (short scriptType, short scriptld) 

{ 

short i ; 

struct eprom_script_def script; 

for (i = EPROM_NUM_SCRIPTS - 1; i > 0; i--) { 
epromGetScriptNumber (i, ^script) ; 
if (script. type != -1) { 

epromlnitializeScript (i) ; 



if (script. type != scriptType) continue; 

if (scriptld != -1 && script . id != scriptld) continue; 

numScriptBuf f ers-- ; 

break ; 



/* 

* PushPlay --An Xml Document emulator\interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
★ 

*/ 

# include "support.h" 

#ifdef PIC 
#include <picl8.h> 
#include "delay. h" 
#else 

#include <stdio.h> 
#endif 

^include "beep.h" 



#ifdef PIC 



void beep( int frequency, int duration ) 

{ 

long totalTime, freq; 



if ( duration < 75 ) duration = 75; 
totalTime = (long) (duration * 1000L) ; 



if (frequency ==0) { 

DelayBigUs (totalTime) ; 
return; 

} 

if ( frequency < cO) frequency = cO; 



freq = (long) (1000000L / (frequency * 2)); 
di ( ) ; 

while (totalTime > 0 ) { 
BEEPER = 1; 
DelayBigUs (freq) ; 
totalTime -= freq; 
BEEPER = 0; 
DelayBigUs (freq) ; 
totalTime -= freq; 

} 

ei ( ) ; 

} 

tfendif 

void goodBeep (void) 

{ 

#ifdef PIC 

beep (cl, EIGHTH) ; 
beep (gl, EIGHTH) ; 

#else 

print f ( M goodBeep\a" ) ; 

#endif 
} 

void errorBeep (void) 



{ 

char i; 

for (i=0; i < 3; i++) { 
tfifdef PIC 

beep (c2, EIGHTH) ; 
beep (e3, EIGHTH) ; 
beep (g2, EIGHTH) ; 
beep (c3, EIGHTH) ; 

#else 

print f ( "errorBeep\a 

#endif 

} 

} 

void keypressBeep (void) 
{ 

#ifdef PIC 

beep(c2, EIGHTH) ; 

#else 

print f (»\a») ; 

#endif 
} 
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/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 

* Arthur Gravina <art@agravina . com> 
*/ 

#include " support . h" 

#ifdef DEBUG 

#include <picl8.h> 
#include "config.h" 
#include <stdio.h> 
#include " serial. h" 



void 

init_comms (void) 
{ 



TRISC6=OUTPUT; 

TRISC7=INPUT; 

SPBRG= SPBRG_DIVIDER; 

BRGH= 1 ; 

SYNC=0; 

SPEN=1;. 

SREN=0; 

TXIE=0; 

RCIE=0; 

TX9=0; 

RX9=0; 

TXEN=0; 

TXEN=1; 

CREN=0; 

CREN=1; 

} 

void 

putch (unsigned char byte) 
{ 

while ( 1TXIF) 

continue; 
TXREG = byte; 

} 

unsigned char 
getchO { 

while ( !RCIF) 

continue; 
return RCREG ; 

} 



unsigned char 
getche (void) 



{ 

unsigned char c; 
putch(c = getchO); 
return c; 

} 

char *getsNoEcho(char *s) 

{ 

register char * si = s; 
int c ; 

for(;;) { 

switch (c = getchO) { 

case ' \n 1 : 
case ' \r ' : 

*sl = 0 
return 

default : 

*sl++ = 
break; 



} 

char *gets(char *s) 

{ 

register char * si = s; 
int c ; 

for(;;) { 

switch (c = getcheO) { 

case ' \n' : 
case • \r • : 

*sl = 0 
return 

default : 

*sl++ = 
break ; 



puts (const char *s) 

{ 

while (*s) 

putch (*s++) ; 
putch( ' \r » ) ; 
putch ( f \n' ) ; 

} 

#endif 



/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#include "support. h" 
#include "squeue.h" 

#define QUEUE_LENGTH QUEUE_DIM-1 

#ifdef PIC 

near 

#endif 

static int last=0; 

#ifdef PIC 

near 

#endif 

static int f irst=QUEUE_LENGTH; 

static char val [QUEUE_DIM] [MAXQUEUELENGTH] ; 

char QueuelsFull (void) 

{ 

return (last>first ? last-first : QUEUE DIM+last-f irst) >=QUEUE DIM 

} 

char QueuelsEmpty (void) 

{ 

return (last>first ? last-first : QUEUE DIM+last-f irst ) <= 1; 

} 



void EmptySQueue (void) 

{ 

last = 0; 

first = QUEUE LENGTH; 

} 



void SEnqueue (const char *el) 

{ 

int slen; 

if (! QueuelsFull () ) { 
slen = strlen (el) ; 
if (slen > (MAXQUEUELENGTH -1)) 

slen = MAXQUEUELENGTH - 1; 
strncpy (val [last] , el , slen) ; 
val [last] [slen] = 0; 
last++; 

if (last>=QUEUE_DIM) last-=QUEUE DIM; 

} 

else { 

debugPutstrHi ( "SQueue Full" ) ; 

} 



char SDequeue (char *el, const int len) 

{ 

int slen; 

if ( ! QueuelsEmpty () ) { 

if (++f irst>=QUEUE_DIM) f irst-=QUEUE_DIM; 



slen = strlen (val [first] ) ; 
if (slen > ( len - 1) ) 

slen = len - 1; 
strncpy(el, val [first], slen); 
el [slen] = 0; 
return 1; 

} 

return 0; 



/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
★ 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
★ 

* Arthur Gravina <art@agravina . com> 
*/ 

#include " support. h" 

#ifdef DEBUG 

#include <picl8.h> 
# include "config.h" 
#include <stdio.h> 
#include " serial . h" 



void 

init_comms (void) 
{ 



} 



TRISC6=0UTPUT; 
TRISC7= INPUT; 
SPBRG= SPBRG_DIVIDER; 
BRGH=1 ; 
SYNC=0 
SPEN=1 
SREN=0 
TXIE=0 
RCIE=0 
TX9=0; 
RX9=0; 
TXEN=0 
TXEN=1 
CREN=0 
CREN=1 



void 

putch (unsigned char byte) 
{ 

while ( 1TXIF) 

continue; 
TXREG = byte; 

} 

unsigned char 
getchO { 

while (1RCIF) 

continue; 
return RCREG; 

} 



unsigned char 
getche (void) 



{ 

unsigned char c; 
putch(c = getchO); 
return c; 

} 

char *getsNoEcho(char *s) 
{ 

register char * si = s; 
int c ; 

for(;;) { 

switch (c = getchO) { 

case 1 \n' : 
case ' \r ' : 

*sl = 
return 

default : 

*sl++ 
break ; 



} 

char *gets(char *s) 

{ 

register char * si = s; 
int c ; 

for( ;; ) { 

switch (c = getcheO) { 

case ' \n' : 
case ' \r ■ : 

*sl = 
return 

default : 

*sl++ 
break; 



puts (const char *s) 

{ 

while (*s) 

putch(*s++) ; 
putch( f \r' ) ; 
putch ( ' \n ' ) ; 

} 

#endif 



/* 

* PushPlay --An Xml Document emulator\ interpreter for microprocessors 
* 

* Copyright (C) 2002, Arthur Gravina. Confidential. 
* 

* Arthur Gravina <art@agravina . com> 
* 

*/ 

#include "support. h" 

#ifdef PIC 
#include <picl8.h> 
# include "delay. h" 
#else 

#include <stdio.h> 
#endif 

#include "beep.h" 



#ifdef PIC 



void beep( int frequency, int duration ) 

{ 

long totalTime, freq; 



iff duration < 75 ) duration = 75; 
totalTime = (long) (duration * 1000L) ; 



if (frequency ==0) { 

DelayBigUs (totalTime) ; 
return; 

} 

if ( frequency < cO) frequency = c0; 



freq = (long) (1000000L / (frequency * 2)); 
di(); 

while (totalTime > 0 ) { 
BEEPER = 1; 
DelayBigUs (freq) ; 
totalTime -= freq; 
BEEPER = 0; 
DelayBigUs (freq) ; 
totalTime -= freq; 

} 

ei ( ) ; 

} 

#endif 

void goodBeep (void) 

{ 

#ifdef PIC 

beep (cl, EIGHTH); 
beep (gl, EIGHTH) ; 

#else 

print f ( "goodBeep\a n ) ; 

tfendif 
} 

void errorBeep (void) 
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char i; 

for (i=0; i < 3; i++) { 
#ifdef PIC 

beep (c2, EIGHTH) 

beep (e3, EIGHTH) 

beep (g2, EIGHTH) 

beep (c3, EIGHTH) 



#else 

#endif 

} 

} 

void keypressBeep (void) 
{ 

#ifdef PIC 

beep(c2, EIGHTH) ; 

#else 

print f ("\a") ; 

#endif 
} 



print f ( "errorBeep\a" ) ; 



